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BASIC ソー ス ブ ッ クス 
パソ コン テレ ビ X 1 ゲー ム プ ログ ラム ( II ) 


前 書き 

X 1 で プロ グラ ム を 作る こと に な っ て , 気が付い た こと で す が , 第 一 
印象 と し て は , 『X 1 о СИЛ”) 5 9992е%, 

一 度 に , あの 機械 、 こ の 機械 と 複数 の マイ コン を 使っ て いる と “プロ 
グラ ム を 作る , 走ら せる , する と , ピー と 音 が / Syntax error が 出 
る , あれ ? と 思っ て , LIST を 取る 。 す る と 別に お か し い 所 が 見 当ら 
な い ……… 2277 Ьу / そう か , この 命令 は , この 機械 に は 無かっ た 
ん だ /./” と いう こと が 応 々 に し て あり ます が . X 1 を 使っ て いる 間 は 
一 度 も , この よう な 状態 に 遭遇 する こと は , あり ませ ん で し た 。X 1 は , 
国産 の Hu-BASIC を 使っ て いま す が , これ は , 今 ほ と ん どの パソ コン 
に 塔 載 さ れ て いる , 米国 マイ クロ ソフ ト 社 の BASIC の 良い 所 や , ま 
た それ 以上 に 良い 命令 を 持っ て いま す 。」 こ れ ほ ど 多 彩 な BASIC は , な 
い の で は な いか 」 と 言っ て も 過言 で は な いと 思い ます 。 HARD に し て 
も , 640х200 ドッ ト の フル カラ ー, キャ ラク ター ゼネ レー タ 機 能 , 
AY-3-8199 を 使っ た ミュ ー ジ ッ ク 機 能 な ど ,. いた りつ くせ り で す 。 
また , パソ コン テレ ビ と 言わ れる よう に , 今 ま で の パソ コン に は 考え ら 
れ な か っ た , TV と コン ピュ ー タ 画面 の 合成 。 TV チャ ン ネ ル , 音量 の 
コン トロ ー ル , TV 番組 子 約 な どの 機能 も 盛り だ くさ ん で す 。 た だ 心配 
な の は , 「 こ れ だ け の 機能 の パソ コン を , 使い こなせ る だ ろう か ? 」 と い 
うこ と で す 。 こ れ だ け の パソ コン を TV を 見 て いる だ け で は , も っ た い 
な い / /, 早く 自分 の 思い の まま に 動か せる よう に な っ て 下さ い 。 

思い の まま に 操作 で きる よう に な る た め に は , どう し た ら 良 いか ? , 
と いう と , まず X 1 に 触り まく る こと で す 。 プ ログ ラム を 入力 する だ け 
で も か まい ませ ん が , 「 こ の 命令 は 。 どう いう こと を し て いる の だ ろう 」 
と いう 疑問 か ら , 1 歩 1 歩 理解 し て いく も の だ と 思い ます 。 

本 書 は , マイ コン を ちょ っ と か じ っ た 人 , 初心 者 で も 気楽 に 読め る よ 
うに , 各 プ ログ ラム に は , フロ ー チ ャ ー ト (流れ 図 ), 変数 表 . リス ト に 
は 各 ル ー チ ン の 説明 を 加え まし た 。 ま た , プロ グラ ム は すべ て , 手元 に 
ある マイ コン に か け て テス ト し て あり ます 。 どうぞ , 御 参 考 に し て 下さ 
Mo 

な お , 出版 に あたっ て は , 工学 図書 の 方 々 に 大 変 お 世話 に な り , k < 
に 同社 笠原 進 氏 に は , 多大 な 御 協力 を 得 まほ し た , 記し て 感謝 の 意 を 表 
37, 
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- 時 期 も の すご い イ ン ベ ペー ダー ゲー ム の ブー ム が あり まし た 。 町 を 歩 


け ば あちら こち ら か ら イ ン ベ ー ダ ー 特 有 の 電子 音 が 聞こ えて 来 た も の で 
す 。 その 頃 大 量 に 生産 され た イン ベー ダー 機 は ブー ム が きっ て か ら ど う 
な っ た か 7 と いう と , КОМ を 変更 きれ て GALAXY WARS や ル 
ナー セス キュ ー。 2 ミン すき 必 など に 変 衝 し た まう で す 。 65%, ӚЗ! 
日 の 目 を 見 な か っ た GALAXY WARS を 少々 スピ ー ド は 遅い で す が , 


作っ て み ま し た 。 


Ks 


ギャ ラク シー ウォ ー ズ 


ゲー ム の 遊び 方 


48 


re) f= 


この ゲ ダーム は , ОВАА Б ес, ミサ イル を 操作 し て 
敵 の UF 0 に 体 当 りす る も の で す 。 本 物 と の ちがい は , UFO が 放射 

能 を 出し て きま せん 。 こ れ を や ら な い の は , 極端 に スピ ー ド が 落ち て し 
まう た めで す 。 操作 キー は , 発射 ニテ テン キー8 左 移動 デ テ ン キ ー4 
右 移動 = テン キー6 と な っ て いま す 。UFO に うぅ うまく 当 た れ ば 100- 
1000 まで の 点数 が 加算 きれ ます 。 な お 限 石 に 当っ た か の 判定 は "X" の 
み で 行っ て お り , ж “ж” で は 判定 は 行い ませ ん 。 ミサ イル が 随 石 に 5 
回 当たる と ゲー ム オ ー バ ー で す 。 


上 の 取り 方 


発射 ネー を 押す まで スタ ー ト し ませ ん か ら 充 分 相手 UF 0 の 動き を 読 
ん で か ら 発 射 し まし ょ う 。 な お UFO の どこ に 当っ て も 点数 は 同じ で す 。 
端っこ で も 当っ て お きま し ょ 2 う 。 


変数 表 


X, Y っ ミサ イル の X, Y 座 標 

XX, YY 移動 用 仮 変 数 

5 C b Z, 8 

MS ミサ イル の 数 
P(n) つ 随 石 の 位置 
E$(0),、E$(1) つ UFO の デー タ 
K つ 画面 読み 取り 用 

I $ み キー 入力 用 


1. ギャ ラク シー ウォ ー ズ 


ギャ ラク シー ウォ ー ズ ・ フ ロー チャ ー ト 


START 


限 石 に 当っ た か 


画面 か ら は み 
出し た か 


1. ギャ ラク シー ウォ ー ズ 


ooJOm ト oN こ 


КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
КЕМж 

КЕМж ШЕШ GALAXY HARS ЧЕК 1.0 ШЕШ 
КЕМж 

КЕМж ІСІ COPYRIGHT 1983ж 7Я 
КЕМж 

КЕМж FOR SHARP-X1 BY HEART SOFT 
КЕМж 
КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


Ххх 


WIDTH 49:CONSOLE 9,25iCLICK OFF UFO の デー タ 
X=20:Y=21:XX=X:YY=Y:S=0:MS=5:SC=0 

ж. ғ. ғ. Жж. ZA. š ":E$(1)=E$c0) 
COLOR 2,5iCLSICOLOR 1 

PR INT "ШШШ GALAXY MARS VER 1.0 ШШ 5С- ши"; 

РЕІМТ Зан ннн ы л л ы 

LOCATE @,23 画面 作成 
PR ENT GIO н ы ыш» 

РКІМТ"ШШШ [に じ ]COPYRIGHT 1982 BY HEART SOFT ШШШ"; 

FOR Ізі TO 8:Р (1) =INTX(RND (1) ж40) :NEXT I 


110 REH ヽ 一 @ こ の 位置 を 決め る 


COLOR る 


130 LOCATE 0,3:PRINTE$ (0) 


ЕФ (0) =ВІОСНТФ (ЕФ (0), 1) +LEFT$ (E$ (0), 39) 
LOCATE @,5:РЕІМТ ЕФ ‹1› 
ЕФ (1) =КІСбНТФ (ЕФ (1), 39) + ЕҒТФ (ЕФ (1), 1) 


UF0 を 動か す ル ー チ ン 


178 REM 


MUSIC "O&":SOUND 7, &HF8 


198 COLOR 2 


230 LOCATE Х, Үжі:РКІМТ" "j 人 た 


LOCATE ХХ, ҮҮ:РВІМТ" "; " 
LOCATE X,Y:PRINT"W";CHR$ (31) 5 CHR を (29) ; "ж"; 自分 の ミサ イル を 
PAUSE 2 жж `x 動か す ル ー チ ン 


% 


КЕМ 


250 II=STICK(@〉 


IF 11=8 THEN 5:1 = XN 8— 発射 


" и キ 
270 IF S=9 THEN MUSIC "A@R4" ELSE GOSUB 1290 4 一 =* 左 移動 


IF II=4 THEN XX=X:YY=Y:X=X-1:GOTO 319 


298 IF II=é THEN XX=X:YY=Y:X=X+1:GOTO 319 6 一 を 右 移動 


XX=xX:YY=Y 


310 Y=Y-S 


IF Ү<3 THEN Y=21 


330 IF X<=3 THEN X=3 


IF X>=3é THEN Х=З& 


350 K$=CHARACTER*S (X, Y> 
360 IF К%=" 4" OR КФ-"ы" OR КФ= "1" ОК К%="®" THEN 730 一 一 UFO に 当っ た と き 


370 IF K$="@" OR К%="=" THEN 940 


512 шок Š 
КЕМ 


390 COLOR 2 


LOCATE Р (1), énPRINT" "j 


410 Р(1) =Р (і) -1 


IF Р<12<ч1 THEN Р (1) =38 


430 LOCATE Р (1), &:РКІМТ" @="; 


LOCATE Р (2), 1ё:РЕІМТ" "j 


450 Р (2) =Р (2) -1 


IF Р (2) <=} ТНЕМ Р (2) «38 


478 LOCATE Р (2), 1@!PRINT"@="; 


LOCATE Р (3), 14:РЕІМТ" "j 左 へ 寄り 切っ た ら 右 へ 戻す 


Т- 


490 P(3) =P (9)-1 


IF P〈3〉 く <m1 THEN P (3) =38 


510 LOCATE Р (3), 14:PRINT"@="; 


LOCATE Р (4), I8IPRINT" "j 


530 Р (4) вр (4) -1 


IF Р (4) <=} THEN Р (4) =38 


550 LOCATE Р ‹4), 18:РКІМТ"ө="; ШБ #3 


LOCATE Р (5),8:РРІМТ" “J 


570 Р (5) аР (5) +1 


IF Р (5) >=38 THEN Р 5) =1 


590 LOCATE Р (5), В:РКІМТ" ="; 


LOCATE Р (4), 12:РКІМТ" "J 


610 Р (6) аР (6) +1 


IF Р (6) >=38 ТНЕМ Р (6) =1 


638 LOCATE Р (é), 12:РКІМТ" = ө"; 右 へ 寄り 切っ た ら 左 へ 戻す 


LOCATE Р (7), 14:РЕІМТ" "; 


650 Р (7) =Р (7) +1 
668 IF Р (7) >=38 THEN Р ‹7) =1 


1. ギャ ラク シー ウォ ー ズ 


LOCATE Р (7), 16:PRINT"=@"j 

LOCATE P(8),20:PRINT" "j 

Р (8)=P(8)+1 

IF P(8)>=38 THEN P (8)=1 

LOCATE Р (8),20:PRINT"=e"j 

GOTO 119 

REM エン ロバン 2 アァ クル 
COLOR 1 

GOSUB 1340:kl=H+1:IF И=10 THEN 1170 
R=INT (КМО (1)x10)x100+100 ーー 得点 を ラン ダム に 決め る 
LOCATE X-2, Y 
PRINT USING"####", R 
SC=SC+R 
LOCATE 32,0 
PR NT етме “мінін, SC кетке " 
LOCATE X-3,Y:PRINT" mi жес 
IF Y=3 THEN Be@ 

IF Y=5 THEN ヶ 99 
E*〈@〉 =" ":ҒОК I=0 TO 3? 
ЕФ(0) =Е% (0) +CHARACTER$ (1, 3) 
NEXT I 

Y=21:S=0:GOTO 118 
E*(1y="":FOR I=0 TO 3? 

ЕЗ (1) =Е% (1) +СНАКАСТЕКФ (I, 5) 
МЕХТ І 

Y=21:S=0:GOTO 118 
REM イン セキ 2 アク タル 

60508 1389:BEEP*COLOR 2 
LOCATE Х-1, Ү-1:РКІМТ"жжж" з 
LOCATE Х-1,Ү :РКІМТ"жжж" ; 
LOCATE Х-1, Ү+1:РЕІМТ"жжж"; 
PAUSE 26 ТЕ е е4 
LOCATE Х-1,Ү-1:РВІМТ" “j 

СОСАТЕ X-1。Y :РВІМТ" "j 

LOCATE Х-1,Ү+1:РВІМТ" “j 

X=20:Y=21:XX=X: YY=Y 

COLOR é 

MS=MS-l:IF MS<>9 THEN 118 


数 値 出 カ 


新た に UFO の デー タ を 
読み 込む 


PRINT" 7-4 #-n"- As hasa 


PRINT" ж21Һ” ?9E"2?2p (Y/N)2"j 
ІФ=1МРОТФ (1) 

IF I#="Y" OR I$="y" ТНЕМ RUN |ву-де? 
IF I$="N" OR 1%="п" THEN CLSIEND 

GOTO 1139 

REM 

COLOR é 

LOCATE 0,12 

BO=INT(RND (1›ж1@й)ж1@@+1@@ ーー ボー ナス 点 を ラン ダム に 決定 する 
SC=SC+BO 

PRINT 

PRINT" オー ル クリ ァ ー ПРОТЕСТ 

PR INT 622 

PRINT" уже が ンド レ ! ホー ブス "J:PRINT 06ІМО "нив"; ВО; 

PAUSE 48 

X=20:Y=21:XX=X:YY=Y:H=0 

вото зе 

REM ロケ ッ ト ノオト 、 | 
SOUND 8,289:500М0 1,31:800№0 2,199!SOUND 3,4 以下 音 の ルー チン 
SOUND 4, 100:500№0 5,30:500М0 4,2 :SOUND 7,&HC7 

SOUND 8, 12:600М0 9, 12:500М0 18, 12:SOUND 11,100 

SOUND 12,10:500М0 13, 13:RETURN 

REM エン ドン ニ 22525 トキ ノオト 

SOUND @0,200:SOUND 1, @:600№0 2,100:SOUND 3,11SOUND 4,200 

SOUND 5,29:SOUND 4,31:500МО 7,S&HFCISOUND 8, 16:500М0 9,16 

SOUND 10,16:S0UND 11,200:500М0 12, 10:500№0 13,12!RETURN 

REM ロケ ッ ト 2 アタック トキ ノオト 

SQUND 0,200:SOUND 1,@:SOUND 2,100:SOUND 3,1!SOUND 4,200 

SOUND 5,29:SOUND 6,31:500М0 7, 8НЕ5:500М0 8, 16:500М0 9, 16 

SOUND 10,16:SOUND 11,200:SOUND 12,20:500М0 13,0 :RETURN 


ー 5 一 


Y — RUN 
N —= END 


Ф 
+ 
+ 
+ 
Ф 
Ф 
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+ 
全 
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Ф 
Ф 
Ф 
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сы ыы ыыы лыы 


TOYYYYYY111 ル オオ オス オオ オオ ルル 4 


久しぶり に 西部 劇 の 深夜 映画 を 見 た の で す が , や は り カ ッ コ イイ も の 


で す 。 悪 人 相手 に 銃 で 戦う 所 な ん か は 最高 で す 。 気分 は も う , ガン マン / 


そこ で , XX 1 で も と 思い 作っ た の が , この ガン マン ゲー ム で す 。 保安 


”““-7- жа” 
EV б gë > 


5%, 悪人 相手 に 決闘 で す / 


も り で 遊べ ば 。 また 変わ っ た 気分 に な れる か も し れ ま せん 。 


2. ガン マン ゲー ム 


ゲー ム の 遊び 方 


あな た の が ガン マン は 右側 で す 。 操作 キー は テン キー の 2 と 8 € EF i= 
動き え スペース キー で 発射 で す 。 途中 に 障害 物 と し て , サボ テン が 2 本 あ 
), そこ に 弾 が 当っ て も 弾 は スト ッ プ し て し まい 相手 に 届き ませ ん 。 相 
手 は 自分 が 1 歩 進 むと き 0.5 歩 し か 進め ませ ん が , 急所 が 1 ヶ所 し か あ 
り ま せん 。 逆 に 自分 は 敵 よ り 速 く 動 け ま す が 急 所 が 2 ヶ所 あり ます 。 急 
所 に 弾 が 当たり ます と 首 が 飛び どちら か が , 5 回 繋 た れる と ゲー ム オ 
ー ペ パー で す 。 


ガン マン 変数 表 


GM$(0)~GM$(9) っ 敵 の ケン マン 
GN$(0)~GN$(9) っ 自分 の サン マン 
SA$(0)~SA$(9) 
SB$(0)~SB$(9) 

X1, Y1 人 っ 敵 の ケン マン の X, Y 座 標 
Х2, Y2 つ 自分 の , ” ” 
X, Y つ サボ テン の X, Y 座 標 

R S つ 自分 の 得点 

L S っ 敵 の 得点 

Р $ つ 画面 読み 取り 

1 $ っ キー 入力 用 

I っ 弾 の X 座 標 , ルー プ 用 に 使用 


| サテン の テー ク 


2. ガン マン ゲー ム 


ガン マン ・ フ ロー チャ ー ト 


START 自分 の 動作 


弾 の 軌道 の 
確認 


弾 の 軌道 の 確認 


相手 より 
下 か 


あな た の 頭 
を 飛ば す 


負け の メッ 
£= 


1 ВЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
2 ВЕМж ж 
З КЕМ БЫНЫ カ ンマ ン 7-2 VER 1.0 ШШШ ж 
4 КЕМж ж 
5 КЕМж ІСІСоругіоҺһ% 1983% 7Я ж 
6 КЕМж ж 
7 КЕМж FOR SHQRP-X1 Ву Heart Soft x 
8 КЕМж ж 
% КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


10 CONSOLE 0,25:МІОТН 40:CLICK OFF 
20 RANDOMIZE:COLOR 7:ТЕМРО 7060 


30 GM$%(0)=" "16М% (0) =" т 
48 6М%(1) =" Ы "ТОМФ (1) =" 

50 БМФ (2) =" wasa "ТОМФ (2) =" 

608 6М% (3) =" ШО 


70 6М% (4) =" 0 "1GN$ (4) =" 
88 GH$(S)=" ШХШ ШЕ ":GN$(5S)=" ОШ 
90 GN 和 を (る)=" ШШШ ":ОМФ (6) =" mmm 


L. 

ピュー 

"BN を (3) =" osa 
n 

шш 


100 GM$(7)=" ШЕШ “:0М%(72-" ва " 
110 ОМ% (8) =" Ш ШШ " 4 GN$ (8) =" шн" 
120 ОМ% (9) =" ":GN$ (9) =" ы 
130 REM 

140 SA$(0)=" "158% (0) =" " 
150 5А% (1) =" а "15В8%(1)=" и x" 
160 SA$(2)=" Ш ЖШ ":SB ま を (2) =" Ек" 
170 ЅАФ (3) =" W и ":SB を (3)=" ë Ши" 
180 ЅАФ (4) =" Щ "158% (4) =" & иш" 
190 ЅАФ (5) =" @ и к" 


жәнек 
g ":5В% (5) =" 
200 SA を CS) =" Ж 
а 
Яя 


":5В% (6) =" ІШЕ К 
210 ЅАФ (7) =" "15В% (7) =" а Ы 
220 SA*$(8)=" ":5В%(8)-" # " 
230 ЅАФ (9) =" "168% (9) =" ы 


| 


РА 


ガン マン の デー タ 
自由 に 変え て も 良い が , ОВО 
と ころ だ け は 変え な いよ うに 


> サポ テン の デー タ 


自由 に 変え て も 良い が , 同じ 
キャ ラク ター を 使用 する こと 


240 CLSiCOLOR7 : PR INT "SEE SHARP -X1 カン マン 77-4 VER 1.0 ШЫҒЫ"; 
250 LOCATE 0, 24:РКІМТ"ШШШ COPYRIGHT 1983. 7. 


260 LOCATE 5, 1:PRINT"LEFT SCORE=" 35LS 
270 LOCATE 20,1:РКІМТ"КІСНТ SCORE = "RS 
289 COLOR 5 


298 LINE (0, 2) - (39,24), "&", B —— 枠 を 出力 する 


300 COLOR 4 
310 X=RND (1) ж5+8 :Y=RND (1) ж5+4 
320 FOR 1=@ TO 9 


BY HEART SOFT ШЕШ"; 


330 LOCATE X,Y+I 左側 の サポ テン を 出力 


340 PRINT ЗЅАФ І); 

350 NEXT I 

368 X=RND (1) ж5+18: Y=RND (1) ж5 +9 
370 FOR 1-0 ТО 9 

380 LOCATE Хх, Ү+І 

390 PRINT 58% (1); 

400 NEXT I 

418 Х1=2:Ү1=8:х2=30:Ү2=8 


右側 の サボテン を 出力 


420 60508 570 — Bm: 7 hD 

438 GOSUB 440 ーーーーーーーーーー 目 分 の ガン マン を 出力 

440 REM 

450 IF STRIG(0@)=-1 THEN 710 ーー 一 スペ ー ス を 押し た と き 

468 IF ЅТІСК (8) =2 THEN Y2=Y2+1 ) キー 入力 2 で 下がり 8 て 上 が る 
470 IF ЗТІСК (0) =8 THEN Y2=Y2-1 


480 IF Y2<3 THEN Y2=3 
498 IF Ү2214 THEN Y2=14 
500 GOSUB 6468 

510 REM 

S20 IF Y1-Y2=0 OR Y1-Y2=-1 THEN 8?0 
530 IF Ү1>Ү2-1 THEN Ү1=Ү1-.5 
S40 IF Y1<Y2-1 THEN Yi=Yi+. 5S 
550 GOSUB 570 

5ей GOTO 44@ 

570 КЕМ 

580 COLOR 2 

590 FOR I=0 TO 9 


Juss aus 


発射 ルー チン へ 
| 取 の ガン マン の 移動 ルー チン 


688 LOCATE ХІ, Y1+1 逆 の ガン マン を 出力 する ルー チン 


618 PRINT БМФ І); 

é20 NEXT I 

638 RETURN 

640 КЕМ 

る 5@ COLOR る 1 


2. ガン マン ゲー ム 


668 FOR І-й TO 9 

る 79 (ОСАТЕ Х2, Ү2%І 自分 の ガン マン を 出力 する ルー チン 
る 89 PRINT GN$(I); 

é?0 NEXT І 

700 RETURN 

710 REH 

720 FOR 1=@ TO 1 

730 SOUND é, 15:SDUND 7,7 

740 SOUND 8, 16:500М0 9,16 発射 音 
750 SOUND 10, 16:500М0 12,16 

760 SOUND 13,0 


770 МЕХТ 1 

780 1=39 

790 LOCATE І, Ү2+5:РВІМТ" "; —s# с Ë $ 

800 I=I-1 

810 РФ=СНАКАСТЕКФ (І, Ү2+5) I 

820 IF РФ-"Ш" THEN 460 ーーーーーー 急所 以外 に 当っ た と き 

830 IF Р%="@#" THEN LOCATE I,Y2+S:PRINT" ";:GOTO 450—1 目 分 が 弾 を 発射 し た 
840 IF P*%="D)" THEN 1070 ーーーーー 急所 に 当っ た と き サポ テン に 当っ た と き | ルー チン 
850 IF I=1 THEN 460 ーーーーーー 端 ま で 飛ん だ と き 

869 COLOR 7 

878 (ОСАТЕ І, Ү2+5:РВІМТ" ө" ; —— 5% £ J $ 2. 

889 GOTO 796 

890 REH 


900 FOR 1-0 TO 1 
910 SOUND 6, 15:SOUND 7,7 

920 SOUND 8, 16:500М0 9,16 発射 音 

930 SOUND 10, 14:500М0 12, 16 

9408 SOUND 13,8 

950 NEXT I 

950 I=? 

970 LOCATE I,Y1+S:PRINT" "j тат 

980 I=I+1 

990 РФ-СНАКАСТЕВФ<1, Ү1+5) 

1000 IF РФ-"Ш" THEN 530 ーーー 一 急所 以外 に 当っ た と き 瑞 が 弾 を 発射 し た 
1010 IF РФ-"Ш" THEN LOCATE I,Y1+S:PRINT" ";:GOTO 530- ルー チン 
1020 IF P ま =" 口 " THEN 1229 一 一 急所 に 当っ た と き サボテン に 当っ た と き 

1030 IF 1=38 THEN 530 — 端 まで 飛ん だ と き 

1040 COLOR 7 

1050 LOCATE 1,Ү1%5іРКІМТ"Ө"; 
1068 GOTO 978 

1070 REH 

1088 SOUND 7,&HF8 

1090 SOUND 8, 15:500М0 9, 15:500М№0 10,15 | зэккаов 
1100 PLAY"RRRCCCRRCCCRRCCRCCCRRR#DB#DBDRDDRDDDRCCRCCCR-B-BRCCCC 

1110 FOR I=Y1 TO Y1+3 
1120 LOCATE Х1,1 

1130 PRINT" "; а 
1140 МЕХТ 1 

1150 FOR 1-80 ТОЗ 

1160 LOCATE X1,Y1-2+I эжен 
1170 PRINT GM$(1I); аы 
1180 NEXT IiRS=RS+1 

1190 IF RS=5 THEN 1379 一 一 あな た の 勝ち 
1200 PAUSE 10 

1210 6070 240 

1220 БЕМ 

1230 PAUSE 10:500Мр 7,&HF8 

1240 SOUND 8, 15:SOUND ?, 15:SOUND 10, 15 | 当っ た と き の 音 


弾 を 出力 する 


敵 の 急所 に 当っ た ルー チン 


1250 PLAY"RRKRCCCRRCCCRRCCRCCCRRR 柱 DDRDDRDDDRCCRCCCR -в -BRCCCC 
1249 FOR 1=Y2 ТО Ү2+3 

1279 LOCATE XZ2, 1 ат 

1280 PRINT" "% i 

12908 NEXT I 

1300 FOR I=0 TO 3 目 分 の 急所 に 当っ た ルー チン 
1318 (ОСАТЕ X2, Ү2-2%1 š 

1320 PRINT GN$(I); АЖА 

1330 NEXT IiLS=LS+1 

1340 IF (5:5 ТНЕМ 151@9ーーー あ な た の 負け 

1350 PAUSE 10 

1368 GOTO 240 

1378 REM 

1380 LOCATE 5,1:PRINT"LEFT SCORE="jLS 

1390 LOCATE 20, 1:PRINT"RIGHT SCORE= "RS 


1400 
1419 
1429 
1439 
14480 
1450 
14 る 9 
1479 
1489 
1490 
1508 
1510 
1520 
1538 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
16208 
1530 
16408 


ЦІМЕ ‹8, 15) - (39,21), " ",ВЕ 


LOCATE 0,16 

PR INT" GAME OVER !! 

PR INT рат 
PRINT" アナ クノ ля?ул. あな た の 勝ち 
PRINT 

PRINT" モウ 1 ト * リマ スカ ? て Y/N) " 
I*$=INPUT$ (1) 

IF 1%="Ү" OR I$="y" THEN RUN , 

IF I$="N" OR 1%="п" THEN CLS:END J 再 ゲ ー ム か ? 
GOTO 1479 

REM 

LOCATE 5, 1:PRINT"LEFT SCORE=";LS ] 

LOCATE 29,1:PRINT"RIGHT SCORE=";RS 
(ІМЕ(0,152-<(39,212," ",ВЕ 

LOCATE 0,16 

PRINT" GAME OVER !! 

PRINT あな た の 負け 
PR INT" X12 カチ テテ ~ Z. 

PR INT 

PR INT" モウ 1 ト ~ ヤリ マス カフ て (Y/N) "ғ 
ІФ=ІМРОТФ (1) 

IF 1%-"Ү" ОК I$="y" THEN RUN 

IF ІФ= "№" OR ІФ= "п" THEN CLSIEND 

GOTO 1610 2 


I. ы 
Газа MH 


GAME OVER !! 
Х1) 用 チ テ ドス ョ 
モ り 1 ト ~ PU22D? (Ү/МОЫ 


Ф 
Ф 
Ф 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 


Ф 
Ф 
22222222222 


ゲー ム 終 了 . 5 対 4 で X1 の 勝ち ,/ 


[ユル スル スス オオ スル オル 4 4 。 


ШЕШ SHAFF-S1 CHARACTER МАКЕЕ ヒレ 1.06 ЕНЕ 
É E F 
СІЗ  Байап 
q E K R K K K RE 


12345678 


1 
2 
3 
4 
5 
6 
7 
8 


CHARACTER EDIT OR SAVE? (Е/50Ш 
ШЕН COPYRIGHT 1983.6. BY HERRT SOFT ШЕШ 


X1 は PCG (プロ グラ マブ プル ・ キ ャ ラク ター・ ジ ェ ネ レー ター) 機 
能 を 持っ て いて 非常 に 綺麗 な キャ ラク ター を 使え る こと が で きる 反面 , 
邊 る に は 方 眼 紙 に 

マス 目 を 取り , そこ に 書き 込ん だ も の か ら ド ッ ト 単 位 で 数 値 を 計算 し て 、 
それ を 2 進 に 直す , と いう 作業 が 必要 で す 。 これ で は , せっ か さく 良 い 機 
能 が 有る の に , 使用 する の に た め ら っ て し まい ます 。 そこ で , この 作業 


非常 に デー タ を 作る の が 面倒 で す 。 通 常 こ の デー タ を 作 


を も う 少 し 簡単 に し よう と 思い 作っ て み ま し た の が , この “キャラ クタ 
ー メ ー タ カー" で す 。 


3. キャ ラク ター メー カー 


プロ グラム の 使用 法 


まず 。 プロ グラ ム を RUN きせ る と ,。 コマ ンド を 尋ね て きま す 。 コマ 
ンド は SAVE コマ ンド と EDIT コマ ンド の 2 種類 し か あり ませ ん 。 
EDIT 2, すき な キャ ラク ター を 作る た め の 定 義 , SAVE は , この 作 
っ た キャ ラク ター を デー タ と し て 保存 する も の で す 。 コマ ンド 別に 使用 
法 を 書き ます の で , よく 読ん で 下さ い 。 


wEDIT コマ ンド 

コマ ンド 待ち も の と き に “E” また は “е” を 押す と , この コマ ンド に 
入り ます 。 す る と 画面 中 央 に 8 X 8 の マス 目 が 表示 きれ ます の で , この 
中 で 自由 に キャ ラク ター を 作っ て 下さ い 。 それ で は 使用 キー で す が , 数 
字 1 一 7 まで は , それ に 対応 する 色 の 変更 で す 。 ス ペー スキ ー は 空白 を 
出力 し ます 。RETURN キー は キャ ラク ター グ の 定義 に 使い ます 。 カー ソ 
ルキ ー は その まま 使え ます 。 それ 以外 の キー を 押せ ば , ドッ ト が 打てる 
よう に な っ て いま す 。 目的 の キャ ラク ター が で きま し た ら RETURN を 
押し て 下さ い 。 すると, 定義 むす る キャ ラク ター の 番号 を 尋ね て きま す の 
С, 00 一 1F ま で の 番号 を , 16 進 で 入力 し て 下さ い 。 暫く する と , キャ 
ラク ター が 定義 きれ 出力 され ます 。 修 正 し た い 場 合 で す が , 続け て E コ 
マン ド を 使用 すれ ば 前 に 定義 し た も の が 残っ て いま す の で , ご 安心 を ……。 


wSAVE コマ ンド 

コマ ンド 待ち の と き に “5” また は “48” を 押す と , この コマ ンド に 
入り ます 。 すると, ファ イル ネー ム を 尋ね て きま す の で , 16 文 字 以 内 で 
好き な 名 前 を 入力 し て 下さ い 。 後 は , X 1 が 自動 的 に プロ グラ ム に 変換 
し て 出力 し て くれ ます 。 な お , ここ で 作っ た デー タ は 。 X 1 で 直接 
LOAD する こと が で きる よう に な っ て いま す 。 ASCII 型式 で SAVE 
きれ て いま す の で , 違う プロ グラ ム に , くっ 付け る こと も で きる よう に 
な っ て いま す 。 本 誌 の 14 番 目 の “ベジ タブ ル 〈 く ず し " の デー タ も , この 
キャ ラク ター メー カー で 作っ た も の で す 。 


ー 13 一 


3. キャ ラク ター メー カー 


目的 の プロ グラ ム に 組み 込む 方 法 

S コマ ンド で 作ら れ た デー タ は , ASCII 形式 で 出力 され て いま す の 
с, これ を 目的 の プロ グラ ム の 後に 、 MERGE コマ ンド を 使っ て , < 
っ 付け ます 。 ま ず 目 的 の プロ グラ ム を LOAD する 。 次 に デー タ の 入っ 
て いる テー プ を セッ ト し て , MERGE (СЕ と する 。 レ コー ダー が , 
カチ ャ カチ ャ 音 を 立て な が ら , ロー ド し , OK が 出れ ば 終了 で す 。 

これ で 目的 の プロ グラ ム に , くっ 付い た 訳 で す が , 一 応 LIST 60000 
-СЕ と し て みて 下さ い 。 Ж, 必要 の な い デ ー タ を 消去 し ます 。 


ゲー ダグ д» 
60000 DEFCHR$ (>) =НЕХСНК $ (一 一") 
+НЕХСНК $ ("一 一 7) +НЕХСНК $ "一 一 ") 


上 記 の 形 に な っ て いま す が , DEFCHR $ の 中 の 数 字 が , キャ ラク タ 
ー メ ー カ ー の EE コマ ンド で 使用 し た と き の キ ャ ラク ター ナン バー に 当り 
ます 。 これ を 必要 に 合わ せ て 変更 すれ ば 良い 訳 で す 。 た と えば , スペ ー 
КЕЕ а, ペー ス の キャ テラ タタ コー ド は 32 で す の で , 
DEFCHR $ の 中 の 数 字 を 32 に すれ ば 良い わけ で す 。 

最後 に 出力 で す が , CGEN と PRINT# 0 を 使っ て 出力 させ れ ば 終 
9 «зі, 


O キ ャ ラク ター メー カー の 利用 法 

で は , も っ と 簡単 に 実際 に 例 を 上 げ て や っ て み ま し ょ う 。 

まず , プロ グラ ム 1 を 打ち 込ん で 走ら せ て 見 て 下 き い 。 "0@" + `О” 
が 40 個 ずつ 表示 され た と 思い ます 。 こ の “0⑧" と `O” を 自分 で 定義 し 
て みる こと に し まし ょ う 。 こ の プロ グラ ム 1 を カセ ッ ト に SAVE し て 
お きま す 。 つ ぎ に , キャ ラク ター メー カー を LOAD RUN し て 下さ い 。 
定義 むす る キャ ラク ター は 2 個 な の で , 好き な キャ ラク ター を 2 個 作り 。 
№0 と No 1 に 定義 する こと に し ます 。No 0 と No 1 に 定義 し 終え た ら , Ж 
し ゅ チー ザ プ に 。 8 コマ ンド で デー タ を БАТЕ し て 下 き い 。 これ で 7 
ログ ラム 1 と キャ ラク ター の デー タ が 入っ て いる テー プ が 2 本 で きた は 
ず で す 。 


8. キャ ラク ター メー カー 


プロ グラ ム 1 
10 REM *** TEST PROGRAM *** 元 の テス ト プ ロ グラ ム 
ЭР ^@" と ` 〇 "を 40 個 表示 させ る 


40 FOR I=O TO 39 


50 _ PRINT (CHR ま (224) * % 


60 NEXT I 
65 PRINT 
70 FOR I=O TO 39 СЕР 
80 PRINT O 
90 NEXT I 


今度 は , 先ほど SAVE し た プロ グラ ム 1 の テー プ を LOAD し ます 。 
ここ に , 2 度目 に SAVE し た キャ ラク ター の デー タ を , 付け る の で す 
ж, 先ほど 書い て ある よう に , キャ ラク ター メー カー の S コマ ンド で 出 
力 さ れ た テー アプ は , ASCII 型式 で す の で , その まま MERGE コマ ン 
ド を 使用 する こと が で きる よう に な っ て いま す 。 デ ー タ の 入っ た テー プ 
を セッ ト し て , MERGE [СЕ と し て 下さ い 。 自動 的 に X 1 が 1 本 の プ 
ログ ラム に し て くれ ます 。 そし て 。 出来 た の が プロ グラ ム 2 で す 。 LIST 
を 取る と 分 か る よう に 不 必要 な を データ が , 沢山 あり ます の で , DELETE 
コマ ンド て 消去 し ます 。 ここ で は 行 番号 , 60020 一 60310 まで で す の で , 
DELETE 60020 一 60310 [C R] と し ます 。 
ゲロ グラ ム 2 


10 КЕМ жжж TEST PROGRAM жжж 


о, 
40 FOR І=0 TO 59 元 の プロ グラ ム に キャ ラク ター メー カー て 作っ た 
SO PRINT СНЕКФ (224) * デー タ を くっ つけ た も の 

60 NEXT I 

65 PRINT 

70 FOR І=0 TD 39 
BO PRINT CHR$(225); 
90 NEXT I 


259% 


作っ た デー タ 


110 END 
60000 DEF CHR ま (&HO ) =НЕХСНКФ ( "O000000000000000" ) +HEXCHR も ("OO2C7EFFFFFF7E さ SC" ) «НЕХС 
НАФ ("1810000000000000") 
60010 DEF СНН%(ЕН1) =НЕХСНКФ ( "ООООООООҒҒООҒЕҒОО") «НЕХСННФ ("ОО1В1ВЕЕЕЕЕЕЕЕЕЕ") +НЕХС 
НН%("ОСООООЕЕҒЕҒООҒЕҒЕҒ ") 
60020 DEF СНЕКФ ( &H2) =HEXCHR$ ( "ОООООООООООООООО") «НЕХСННФ ( "ОООООООООООООООО") +НЕХС 
НАФ ("ОООООООООООООООО") 
60050 DEF CHR$ (&H3) “НЕХСНН% ( "ОООООООООООООООО") +HEXCHR$ ( “ОООООООООООООООО") +НЕХС 
НАФ ("0000000000000000") 


60290 DEF СНЕКФ (&Н1р) =НЕХСНАФ (" О000000000000000" ) +HEXCHR$ ("ОООООООООООООООО") +HE X 
CHR$ ("ОООООООООООООООО") 
60500 DEF CHR ま (&H1E) =HEXCHR 和 も ("OOOOOOOOOOOOOOOO") +HEXCHR$ ( "OO00000000000000" ) +HEX 
CHR ま ("OOOOOOOOOOOOOOOO" ) 
60510 DEF CHR*(&H1F) =НЕХСНКФ ( "ОООООООООООООООО") «НЕХСНН% ( "ОООООООООООООООО") +HE X 
CHR ま ("OOOOOOOOOOOOO000『" ) 


= = А 


к= == いら な い デ ー タ 


3. キャ ラク ター メー カー 


最後 に DEF CHR$ の 中 を 必要 に 合わ せ て 変更 を し ます 。 こ こ で は , 
“0” =224 `О” 三 225 で す の で , 行 番号 60000 の DEFCHRS$ の 中 
味 (&H0) を (224) に , 行 番号 60010 の (&H1) を (225) と し ま 
$, 表示 する キャ ラク ター は RAM CG (キャ ラク ター ジェ ネ レ ー タ 
ー) で す の で , プロ グラ ム の 先頭 に CGEN 1 を 入れ 最後 に , CGEN 0 
と し て や れ ば 終り で す 。 き さあ , RUN し て みて 下さ い 。 あな た の 定義 し 
た キャ ラク ター が 出 て きた は ず で す 。 プロ グラ ム 3 は 完成 し 出来 上 っ た 
も の で す の で , 参考 に し て 下さ い 。 

みな さん が オリ ジ ナ ル を 作る と き に 注意 する こと で す が , CGEN 1 , 
CGEN 0 を 入れ 忘れ な いこ と , DEFCHR$ の 数 を , 間 違 が えな いこ と 
な ど が 上 げ ら れ ま す 。 み な さん も , この キャ ラク ター メー カー を 使っ С, 
色々 な オリ ジ ナ ルキ ャ ラク ター を 使っ て みて 下さ い 。 


プロ グラ ム 3 

10 REM жжж TEST DRUGRRM +++ 完成 し た プロ グラ ム 

20 BOSUB 150 —— デー タ を 読み 込む 

50 CBEN 1 =+ 2 < > >Z Z – # RAMCG I $ 5 

40 FOR І=0 TO 39 

50 PRINT СНЯФ (224): | コン ピュ ー タ クラ フィ ク (Computer Graphic) で は あり ませ ん 
60 NEXT I キャ ラク ター ジェ ネ レ ー タ (Character Generator) の こと で す 
70 PRINT 改行 

80 FOR І-о TO 59 

ЭО РБІМТ СКАФ (225) ; | 

100 NEXT I 

110 CGEN QOーーーーーー 表示 する キャ ラク ター を ROMCG に する 


120 END 
150 DEF СНКФ 2Z4)=HEXCHR$ ( "OO00000000000000")+HEXCHR$ ("O02C7EFFFFFF7ESC'') +HEXCHR 
Ф ("1810000000000000") 
140 DEF СНН%(225) =HEXCHR ま ("OOOOOOOOFFOOFFOO") +HEXCHR ま ("OO1B18FFFFFFFFFF")+HEXCHR 
も ("OCOOOOFFFFOOFFFF") 
15O_RETURN 


ここ に 注目 する ҚАМ 554199 


3 . キャ ラク ター メー カー 


キャ ラク ター エディ ター・ フ ロー チャ ー ト 
SAVE ル ー チ ン 


- _ 行 番号 を 60000 に する ーー 


| ファイ ルミ オー テン する 


デー タ を 出力 する 


だ EDIT ルー チン 


する キャ ラク ター г. 
та 、 — — 


| L. ДЕЛІ 94 Í 


パソ ーー _ ec 
ч u 1 ое» 0 
空自 を 出 カ する 


キャ ラク ター を 
定義 する 


3. キャ ラク ター メー カー 


1 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
2 КЕМж ж 
З КЕМж ШЕШ CHARACTER MAKER VER 1 ШЕШ ж 
4 REMx x 
5 КЕМж [CJCOPYRIGHT 1983ж 6 月 x 
6 КЕМж ж 
7 КЕМж FOR SHARP-X1 BY HEART SOFT ж 
8 КЕМж ж 
9 ВЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


100 CONSOLE 0,25:ИМІОТН 40 

110 CLICK OFF:DIM СФ (31,3) 

120 FOR І=1 TO 3:FOR J=8 TO 31 
130 С%<7, І) =STRING% (8, "0"; 

140 NEXT J:NEXT I 

158 COLOR7:CLS 

160 РКІМТ"ШШШ SHARP -X1 CHARACTER MAKER VER 1.0 ШШ; 
178 LOCATE 0,24 

180 PRINT" COPYRIGHT 1783.4. BY HEART SOFT ШЕШ”; 
190 GOSUB 8180 

208 LOCATE 0,22:РКІМТ ЅРАСЕФ (39) ; 

210 LOCATE 9,22:COLOR 7 


変 族 の 初期 化 


220 PRINT" CHARACTER EDIT OR SAUE2 «(Е/5›"; 

230 ІФ= ІМРОТФ (1) コマ ンド の 選択 
240 IF 1%-"Е" OR 1%="е" THEN 2780 Е--- EDIT 
250 IF 1%-"5" OR I$="s" THEN 976 S—= АЕ 


268 GOTO 230 
270 REM ШЕШШ CHARACTER EDIT ШЕШ 
280 LOCATE 15, 10:РВІМТ" 12345678" 
298 LOCATE 15,11:PRINT"1" 

300 LOCATE 15,12:PRINT"2" 

310 LOCATE 15, 13:PRINT"3" 

320 LOCATE 15,14:PRINT"4" 

338 LOCATE 15, 15:РВІМТ"5" 

348 LOCATE 15, 1 る IPRINT"o" 

350 LOCATE 15,17:PRINT"7" 

349 LOCATE 15,18:PRINT"8" 

370 LOCATE 16,11 

380 I$=INPUT$%(1) 

390 IF I$=CHR%(13) THEN 420 

400 IF ІФ=СНЕФ (28) GR I$=CHR$%(29) OR I$=CHR$% (30) OR ІФ=СНЕФ (31) OR I$=" " PRINT 
16:Е(ФЕ IF 1%›"@" АМО 1 を <"B" THEN COLOR UAL (I$): РЕІМТ "Ш"; 
419 вото зве 

420 LOCATE 0,22:PRINT ЅРАСЕФ (39) ; 

439 LOCATE 0,22:COLOR 7 

440 INPUT" CHARACTER NUMBER ІМРОТ" ; МФ 
450 NsUAL ‹ "6н" +N も う 

460 IF N<9 OR N>31 THEN 420 

470 КЕМ BLUE 

480 СЖМ, 1) =" " 

490 FOR Js=11 TO 18 

500 X=i!P=01I=0 デー タ 数 値 計算 用 

519 FOR К=14 TO 24 вед 

520 IF СНАКАСТЕКФ (К, Ј) =" "ТНЕМ 550 Ë 

530 {=INP〈&H2999+K+J※49) VRAM の アト リピ ビュ ー ト を 読む 

540 IF 141 OR 1=5 OR 1=3 OR 1=7 THEN P=P+128 ノ X 

550 ХаХж21: МЕХТІСФ (М, 1)=C$ (N, 13MIRIGHT$ ("00 " +НЕХФ (P) , 2 ЕР 
560 МЕХТ сой DEFCHRS'n) =HEXCHRS ) 
570 REM RED ыы ы +HEXCHR$(`  ”)+HEXCHR%(` 
580 С®(м,2›="" 

590 FOR Ј=11 TO 18 

&@@ X=iiP=0Q:I=0 

610 FOR K=1é TO 24 ホ ・ シ アン ・ 黄 ・ 白 
る 26 IF СНАКАСТЕК% (К, Ј) =" "ТНЕМ 450 ? 赤色 の 読み 取り 
430 Is=INP&H2999+K+J49) 

448 IF I=2 OR I=3 GR I=é OR I=? THEN Р=Р+128/х 

450 х=хж21МЕХТ1С® (М, 2) «СФ (М, 2) +RIGHT%@("00"+HEX$ (Р), 2) 


定義 する は その まま 使用 


番号 の 入力 


+ 
ғи 
Эх 


Же 
> 


éé@ NEXT J 
478 REM GREEN 
480 СФ (№, З) =" " \ 


6909 FOR 7411 TO 18 
700 X=l1!P=0:I=0 
710 FOR Кв14 TO 24 ) 筆 色 の 読み 取り 
720 IF СНАКАСТЕКФ (К, Ј) =" "THEN 750 
730 I=INP (&H2000+K+J%x40) 


3 。 キ ャ ラク ター メー カー 


748 IF 1=4 OR 1=5 OR I=é OR 1=7 THEN P=P+128 ノ X 緑 ・ 水 色 ・ 黄 ・ 白 

750 хХ=хж2:МЕХТ:С% (М, 3) =С® (М, 3) +RIGHT$ (" 80" +HEX$ (Р), 2) 

760 NEXT 

7708 REM 

788 DEF CHR% (№) =НЕХСНКФ (C$ (N, 122 +HEXCHR$ (C$ (N, 2) ) +HEXCHR (C$ (N, 3) >ーーー キ ャ ラク ター の 定義 


798 GOSUB 819 
вее вото 299 

810 КЕМ CHARACTER PRINT 

620 LOCATE 5,3 

830 РКІМТ" 1 2345 6787 AB C D E F" 

640 LOCATE 3,4 

850 PRINT"9 "j 

868 FOR 1=@ TO 15 

870 CGEN1:PRINT#0 СНКЕФ СІ); 

880 CGENerPRINTT "J 32 個 の 定義 し た キャ ラク ター を 

8?0 NEXT I 表示 させ る ルー チン 

908 LOCATE 3,6 

910 PRINT"1 "j 

920 FOR 1-16 ТО 31 

930 СӨЕМ1:РЕ1МТ#@ CHR を (1)3 

940 CGEN9:PRINT" "j 

950 NEXT I 

940 RETURN 

978 REM DATA SAVE TO СМТ 

980 し L!=69966! — s 

998 LOCATE 0,22:PRINT SPACE%(39); 

1000 LOCATE 0,22:COLOR 7 

1010 INPUT " FILE NAME (16 STRING)"jFL$ 

1020 ОРЕМ"0",01,Ғ.2% ーーーーーー フ ァイル を オー プン する 

1030 FOR 1-8 TO 31 

1040 H$=STR%(L)+" DEF CHR%(&H"+HEX$ (I) +") =НЕХСНЕ% С" +CHR$ (34) +C$ (1, 1) +СНЕФ (34) +") 
+НЕХСНЕ% С" +CHR$ (34) +C$ (І, 2) +CHR$ (34)> +" ))*HEXCHR%$ С" +CHR$ (34) +C$ (1, 3) +CHR$%$ (34) +") " 
1050 PRINT#1, МФ 


1068 ігі «10:МЕХТ I:CLOSE クロ ー ズ する 
1878 GOTO 2800 
デー タ 型 式 で SAVE し て ある が SAVE ル ー チ ン 
直接 LOAD す ずる こと が て きる 
例 60000 DEFCHR$( &H1) =HEXCHRS$ い 一 一 7?) 二 HEXCHR$( 一 ) 
+HEXCHR$(`—) 


この よう に 出力 され る 


EER -НАРР- х1 DEFLECTTICHR УЕР 
INT 8 


УУУУ 


ШЕ [C]COPYRIGHT 1983.7 BY HERRT SOFT ШЕ 


この ゲー ム は 私 が 生ま れ て 初め て 買っ た 往年 の 名 機 、 コモ ドー ル 社 の 
РЕТ (読者 の 中 で 知っ て いる 人 が いる で し ょ うか … の の ?) に あっ た 
ゲー ム で ,。 シン プル で す が 、 な か な か 面白 い ゲ ー ム だ っ た と 思い ます 。 
昔 の こと な の で , これ で 良かっ た か どう か , よく 覚え を て いな い の で す 
Ж まあ この よう な 感じ だ ろう と 思い ます 。 それ と , 一 つ だ け 今 で も 
分 か ちら な いこ と な の で す が , この ゲー ム の 名 前 で す 。 デフ レク ショ ン 

(DEFLECTION) を 辞書 で 調べ て みる と 屈折" と 載っ て いま す 。 何 


楓 .。 リス レク ショ ジン 放射 " で は な か っ た の で し ょ うか "や" 7 。 


ー 20 一 


4. デフ レク ショ ン 


ゲー ム の 遊び 方 


この ゲー ム は 動く 玉 を うま く 反 射 板 に 当て て 的 に 当て る ゲー ム で す 。 
この ゲー ム は タイ ム 制 限 で , 60 秒 の 時 間 内 に 10 コ の 的 を 取れ る か を 競う 
も の で す 。 使用 する キー は 4 と 6 で , 4 を 押す と ~/” , 6 を 押す と 
М?” が 出現 し ます 。 ど ちら が , どっ ち へ 行く か よく 覚え を て お か な いと , 
頭 の 中 が 混乱 し て し まい ます の で , 考え て プレ イ し て 下さ い 。 時 間 内 で 
すべ て 取れ る よう に な り ま し た ら , 次 は どれ くら い 時 間 を 短縮 で きる か 
に 挑戦 し て みて 下さ い 。 


変数 表 


X, Y つ 玉 の X, Y 座標 
XX, YYーー 玉 の 進行 方 向 
тә [н 

PO っ ポイ ント 

I $ み キー 入力 用 

Р $ つ 画面 読み 取り 用 


EE СНАРР-Х1 DEFLECTION ЧЕК 1.0 ОШ 
POINT 18 TIME= 18 


CONGRRTURRT ION! 
オミ コト 72. 18 Е“а97”99. 
Е91Ю” アリ ヒ ~ ЗАЛ? (У/МОШ 


Z 


ШЕ [C]COPYRIGHT 1983.7 Bv HEART SOFT ШЕ 


4. デフ レク ショ ン 


デフ レク ショ ン ・ フ ロー チャ ー ト 


kang 行く 先 の キャ ラク 
ЧЕ ター を 読み 込む 


1 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
2 КЕМж ж 
З КЕМж JEE СЕРІ ЕСТІОМ VER 1.0 ШШШ ж 
4 КЕМж ж 
5 КЕМж ІСІСоругіоһе 1983ж 7Я ж 
6 КЕМж ж 
7 КЕМж FOR SHARP-X1 Ву Heart Soft x 
8 БЕМж ж 
9 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


18 CONSOLE 9,25:MIDTH 48 
20 CLSICLICK OFF:COLOR 7,9:TIME=9 初期 化 ル ー チ ン 

30 RANDOMIZE:XX=0:YY=0 | 

48 LOCATE 0,0 

50 РВ1МТ"ШШШШШШ SHARP -X1i DEFLECTIDN VER 1.0 ШИИ"; 

68 LOCATE 8,24 画面 表示 
70 PRINT" [CJCOPYRIGHT 1783.7 BY HEART SOFT ШЫ"; 

88 LOCATE 5,2:РБІМТ "POINT= 0%) 

90 LOCATE 25,2:PRINT "TIME= 6%; 

188 COLOR 5 

118 LINE(@, 4) - (39,22), "Ш", В 
120 COLOR é 

130 FOR Ізі TO 15 

148 Х=ІМТ (КМО (1) ж35) +2 

150 Ү=ІМТ (ЕМО (1) ж14) +5 

140 IF СНАМАСТЕНФ СХ, У) >" " ТНЕМ 148 
170 LOCATE Х, Ү:РКІМТ"Ф"; 

188 NEXT I 

198 COLOR 2 

200 X=INTCRND て 1)%34) +3 

210 Y=INT(RND (12X15) +6 

220 IF CHARACTER を (CX, Y) く >" " THEN 200 
230 LOCATE X,Y:PRINT"e";:PAUSE 10 
240 LOCATE X,Y:PRINT" "jkPAUSE 18 
258 LOCATE X,YiPRINT"@"jiPAUSE 10 
248 XX=1iYY=9 

278 LOCATE X,Y:PRINT" "j 


枠 を 表示 する 


的 を 15 個 ラン ダム に 表示 する 


ポール を 表示 する 


esataes 


スペ ー ス で な か っ た ら や り 直 し 


4. デフ レク ショ ン 


280 P ま も =CHARACTER CX+XX) Y+YY〉 各 処 理 ル ー チ ン 

290 IF Р%="Ф" ТНЕМ GOSUB 4 る 9:GOSUB 840 的 な ら 460 へ 行く 

300 IF Р%=" " THEN XX=-XXIYY=-YYiGQSUB 750 壁 な ら 正 反射 させ る 
310 IF РФ-"/" THEN SMAP ХХ, YY:XX=-XX: YY=-YY:GOSUB 750 田 久 は NN な ら 反 射 さ せる 


320 IF Р%="\" THEN SMAP ХХ, YY 

330 X=X+XX:Y=Y+YY:COLOR 2 

340 LOCATE Х, Ү:РБІМТ"Ө"; 

350 IF х<2 OR X>37 OR Ү<6 OR Y>29 THEN 406 一 一 はみ出 し 処理 
з&@ COLOR 4 

370 1%=1МКЕҮ% 


380 IF 1%="4" THEN IF СНАКАСТЕК% (X+XX, Ү+ҮҮ) =" " THEN (ОСАТЕ X+XX, Y+YY: PRINT リノ "5 


ELSE 400 

390 IF I$="é" THEN IF СНАКАСТЕН% (Х+ХХ, Y+YY)=" " THEN (ОСАТЕ X+XX, Y+YY:PRINT "5% 
ELSE 400 

499 GOSUB 430 

410 IF Т-%0 THEN 508 —— Zí АЯ -/1- キー 入力 ルー チン 


4208 GOTO 270 

430 COLOR 7:T=TIME z. 4. 

430 Locare 58, араат ту | "maru >> 
4508 RETURN 

468 COLOR 7:BEEP:PO=PO+1 1C 個 取っ た ら 成 功 
470 IF PO=19 THEN 420 ポイ ント 表示 ルー チン へ 
480 LOCATE 19,2:PRINT РО; 

490 RETURN 

500 REM 

510 LINE (0, 10)-(39%?, 16), " ",BF 

520 LOCATE 0,11 

530 PRINT" TIME ОЧЕК !! 

540 LOCATE 0,13 

550 PRINT" シド カン レース 。 "JPO;"3 м?» | ダイ ム オ ー バ ー 
560 LOCATE 0,15 

570 PRINT" モウ 1 ト * アソ ヒド マス カク (Ү/М) "j 
580 I*#=INPUT$(1) 

590 IF 1%="Ү" OR I$="y" THEN RUN 再 ゲ ー ム か ?7 
600 IF I$="N" OR 1%="п" THEN CLSIEND 


る 19 GOTO 580 J 
る 29 REM 
る 39 LOCATE 10,2:РБІМТ РО; ] 


46С</Е5%Жт%% 


4. デフ レク ショ ン 


る 49 
6568 
る る 9 


LINE (0, 10) - (39, 165), " "BF 
LOCATE 0,11 


PRINT" CONGRATURATION! 

LOCATE 0,13 

PRINT" オミ コト 772. "TE" а27%у2. 
LOCATE 0,15 

PRINT" жя21Һ“ アソ ヒマ スカ 2 (Y/N) "; 
ІФ%= ІМРОТФ (1) 

IF ІФ="Ү" ОК ІФ="у" ТНЕМ КОМ 


IF ІФ= "М" ОК ІФ="п" ТНЕМ CLSiEND 
GOTO 716 

КЕМ ハン シャ オン 

SOUND 1,1 :500М0 0,10 
SOUND 3,1 :500М0 2,16 
SOUND 5,1 :500М0 4,10 
SOUND 4,31 :500М0 7,&HF8 
SOUND 8,16 :SOUND 9,16 
SOUND 10, 16:500М0 11,20 
SOUND 12,15:500М0 13,60 
RETURN 

REM トク テン オン 

SOUND 1,@ :SOUND 0,960 
SOUND 7,&HFEISOUND 13,6 
RETURN 


成功 / 


Э; 
日 本 語 エ ラー メッ セー ジ 


%%% Tapanese Error Message Fer 


93" 49 75-38) ヨミ コミ チュ ウ テ ~ ス ョ 
ジロ うう 27%79775. 


ЖҰЖ (C)Copuright 1983 Bu Heart Soft ### 


X 1 は 強力 な BASIC か が 塔 載 さ れ て いて 非常 に 使い や すい の で す が , 
た くさ ん の 命令 が 有る か わり に , それ だ け エ ラー メッ セー ジ も 多く , 何 
と 50 個 ち あり ます 。 こ れ を すべ て 覚え る の は 容易 で は あり ませ ん 
BASIC 2, も と も と 米国 生ま れ で す の で , 命令 は 英語 で すし , も ち 論 
エラ ー メ ッ セ ー ジ も 英語 で す 。 こ れ で は な か な か わか り に くく 。 い ちい 
ち エ チー テッ セー ジ 表 を 手 に ep 5 を bo9 あ ただ た 人 な り ま す 。 62 


より わか りや すく する た め に , エラ ー メ ッ セ ー ジ を すべ て 日 本 語 に し 


み ま し た 。 それ が , この 日 本 語 エ ラー メッ セー ジ で す 。 これ で 安心 し て 
エラ ー が 出せ る ТЕТІ か な ? 


5 . 日 本 語 エ ラー メッ セー ジ 


プロ グラ ム の 改造 法 


メッ セー ジ は すべ て DATA 文 に し て あり ます の で , 自由 に 書き 直し 
て みて 下さ きい 。 た だ し , エラ ー メ ッ セ ー ジ の 入る 番地 は , &H736A ~ 
& Н7697 (814 文 字 ) ま で で す 。 こ れ を オー バー し な いよ うに , くれ ぐれ 
も 注意 し て 下さ い 。 もし, オー バー し ます と , まず 間違い な く 〈 暴 走 し ま 
+. DATA 文中 に 出 て くる `_” は 、 そこ に エラ ー メ ッ セ ー ジ が 指定 


され て いな い バ パス の 標 で す 。 


7%)“ ЄТ КЗЫ 


日 本 語 エ ラー メッ セー ジ の 例 


R 
R 
R 
R 
R 
R 
R 


даольашы 


ЕМж 
ЕМж 
ЕМж 
ЕМж 
ЕМж 
ЕМж 
ЕМж 


«СоСоругіөһ% 1983ж 7Я 


MIDTH 48:CLS 


For SHARP-X1 BY Heart Soft 


ж 


ШЕШ Japanese Error Mesage ШЕШ ж 


Ххх 


КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


РВІМТ "жжж Japanese Error ト Message Ver 1.0 жжж"; 


LOCaATE 0,24 


РКІМТ"жжж (C)Copyright 1283 By Heart Soft жжж"; 


LOCATE 7,14 


PRINT*22* 49 27-9) 3%5124%12772.8" 


LOCATE 10,16 
PR INT "シト № ラク 47922594." 
FOR I=&H73éñ TO &Н7697 
POKE 1, 0:МЕХТ I 
AD=&H73éA:FOR 1=1 TO S0@0:READ 
FOR J=1 TO LEN(I$) 
РОКЕ AD+J, ASC (MID$ (I$, J, 15) 
NEXT J:POKE AD+J, ё 
AD=AD+J:NEXT I 
REM 
DATA" FOR カ " アリ マセ シン s " 
DATA"27 2° 72° а2) マチ カイ テス ョ " 
DATA"GOSUB カ "アリ マセ ン ョ " 
DATA"DATA カ DS" タリ マセ ン ョ " 
DATA "カン スウ テ ~ № アリ マセ ショ" 
DATA "キョ ヨウ ロン イラ 11773, " 
DATA" メモ リー カ * タリ マセ シン ョ " 
РАТА" ҺЕ“ 9л" アリ マセ ン 。" 
DATA"D IM テ " シテ イサ レ テ イ マセ ン 。" 
DATA"D ІМЛ" 2 カイ アリ マス ョ " 
бАтАа"0%% ワレ マセ ショ " 
DATA" チ ョ クセ ツ シ " ッ ゥ コウ ラテ" キマ セン ショ " 


| 


1% 


DAT 人 AA" そ モ シ トト 22У7/) イッ ショ ニ $" キマ セン ョ " 


DATA リー つ E55 ラ ヲ ラ 217593, " 
ОАТА"5 #5" 22999 スキ "マス = ョ " 
DATA "CUNT テ ~ キマ セン a " 
DATA" テ イキ "サレ テー イマ セン ショ " 
DATA"RESUNME カ ^~ アリ マセ ショ " 
DATA"ERROR カ ^ アリ マセ ン ョ 。" 
DATA" テ イキ ^ サレ テイ ナイ マセ ン 。" 
DATA" オ ペ へ? ラント“ Л“ 877472, " 
ОАТА" を" ョ ウ カ ナカ ~ Z+" УД» " 
DATA" л“ メンチ IN アリ マセ ン 。" 
DATA"REPEAT カ ^ アリ マス フ ョ " 
DATA" テ ー フ ? p` セッ ト サ レ テイ マセ ン 。" 
DATA" ° -7° р“ ヨメ マセ ン 。“" 
РАТА" УХУ Фл" *)p*` イマ ス 。" 
DATA" ナ ニモ リハ イッテ ニー イ マセ ン 。" 
DATA"MEND カ "アリ マセ ン ョ " 
DATA"MMH ILE カ ^~ アリ マセ ショ" 
DATA"DISK ВАЅІСЗ? 7° 2, " 
DATA "NEXT カ ^ УЕ, " 
DATA" ナ カド スキ" тл, " 
DATA"UNT IL カ * アリ マセ ン 。『 
ОАТА"2559 212472." 
DATA" シ ョ ウチ ュ ウ 7724" 
DATA "ナン リロ " ー カ "オカ シイ s ョ " 
DATA" フ ァイル カ ^ アリ マセ ショ " 
DAT 人 "オー フッ ン 57472, " 

DATA" 217917187 エラ ー 724" 
DATA" ペン コウ サレ テ (7л, " 
DATA" __ ハ イリ キリ マセ ン 。“" 
DATA" オ ワラ リカ“ アリ マセ ショ " 

DATA" ҒАт»”“ コワ フレ テイ マス ss" 
DATA"?" «2717° タカ "チカ “イマ フス = ョ " 
ОАТА" № 22° ウ カ "チカ "イマ ス ョ " 
РАТА" № ス フ ワート“ p` チカ "イマ ス s " 
РАТА" 4-2%7 サレ テイ マセ ン 。『" 
DATA" ウ ツメ p` オレ テイ マス 。" 
РАТА" キカイ カ ^~ ツナ カッ チー イ マセ ン 。“" 


元 の エラ ー メ ッ セ ー ジ を 
クリ アー する 


50 個 の デー タ を 読み 込み 
ASCII コー ド に 直し て メモ リー に 入れ る 


以下 エエ ラー メッ セー ジ の デー タ 
全部 で 50 個 


ー は , その 番号 に エラ ー メ ッ セ ー 


定義 され て いな いこ と を 表す . 


5 . 日 本 語 エ ラー メッ セー ジ 


ジ が 


ШЕШ COPYRIGHT 1983.6. 


イジ ペー ダー 


ゲー 


し . ょ う 。 モグ ラ た だ た 


か を X 1 で 作ろ うと 』 


と 難し いい ので, モグ 


ダー も 考え て いた こ 


の イシ ペ ポー ダ ゲー だ た 


使っ て みた の で す が , 


実用 に は な り ませ ん 
まし た 。 これ は 元々 


テ ジ キ ー を 使 $ こ と 


へ 


А, これ を 読者 の 中 


BY 


で 知ら な 


x これ も 知ら な い 人 は 少な 
思っ た の で す が , イン ベー タダ 
= ke жс p S S S É L. [, 
と で すし 。 SW 950 6 & 
きき です 。 初め は キー 入力 の と 
押し 続け た りす る と , リピ 
Ф1.йбь < £ era Т 
ジョ イス ティ ッ ク 用 の コマ ン 
も で きる よう に な っ て いま す 


ー 28 == 


い 人 は 。, 


HERRT 


いと 思い ます 


ド な 


> 
+ 


の で す が , 


SQFT 


まず い 


し まっ た の が , 
12, INKEY $ 
ミート が 利 い て し まい 。 
С, STICK 文 を 使う こと に し 


9 て 


イン ペー 


+ 


代り に 


6. イン ベー ダー た た き 
ゲー ム の 遊び 方 


6 つの 井 の 中 に 次 々 と イン ベー ダー が 出現 し ます 。 これ を 素早 く 叩き 
落と す ゲ ダー ム で す 。 操作 キ ー は テン キー の 1 一 6 を 使い , 左下 か ら 右 下 
の 3 つ は 。 1-37, 左上 か ら 右 上 まで の 3 つが , 4 一 6 で す 。 得 点 で 
す が イ ン ベ ペー ダー は, 10 点 一 30 点 まで の 3 種 数 、 これ は 本 物 の イン ベー 
ダー ゲー ム の 点数 と 同じ で す 。UFO は , 100 点 一 300 点 ま で の ラン ダ 
ム 得 点 で す 。 これ ら が 全部 バラ バラ に 出現 し , 全部 で 20 回 出 て きま す 。 
ラン ク が 1 一 3 まで あり , ラン ク 2 ま で は 楽に 打てる と 思い ます が , 9 
ンク 1 に な る と 少し 大 変 か も 知れ ませ ん 。 う まく な れ ば , 1000 点 の 大 台 に 
乗る こと も 可能 で す が , あま り 興 礁 し て キー を こわ さ な い よう に し て 下 
さい 。 


プロ グラム の 改造 法 


イン ベー ダー や UTF 0, 爆発 の デー タ は 直接 PRINT で 書い て ぁ あり 
ます の で ,。 ここ を ギャ ラク シア ン に すれ ば , ギャ ラク シア ン た た き に な 
り ま すし , ハエ に すれ ば , ハエ た た き に な り ま す 。 自分 の 好き な キャ ラ 
クタ ダー に し て 。 オリ ジ ナ チル な 口 O た た きだ し て み で 下さ き w ゅ 。 


変数 表 


P= アレ イペ や ペー の マジ シク 

Z っ イン ベー ダー の 出る 場所 

INV ラ イン ベー ダー の 種類 

IT ユキ ー 入 力 用 

X,Y っ イン ベー ダー か 出現 する X, Y 座 標 


6. イン ベー ダー た た き 


イン ベー ダー た た き ・ フ ロー チャ ー ト 


各 イ ン ペ ー ダ ー 
出現 ルー チン 


X,Y 座標 を 定義 


プン ーー ター の 
する 場所 を ラン ダム 
に 決め る 


КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
КЕМж 
КЕМж ШЕШ INUERDER 22% VER 1.0 ШЕШ 
КЕМж 
КЕМж 
ВЕМж 
ВЕМж 
ВЕМж 
КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
MIDTH 49:CONSOLE 0,25 
CLICK OFFICLSISC=9iCOLOR 7,0 
PR INT "IS SHARP -X1 INVERDER 22% VER 1.60 
LOCATE 0,24 
РЕІМТ" ШШ COPYRIGHT 1983. 6. 
LOCATE 12, 10:РКІМТ"1..... 2“ ョ ウォ ュ ウ УР"; 
LOCATE 12, 12:РВІМТ"2,....#1? キュウ УР"; 
LOCATE 12, 14:РВІМТ "3.....ув キュウ УР"; 
LOCATE 10,28 

PR INT" ト ~ 2 ラッ クニ 
I$=INPUT$ (1) 
IF 19<41" ОК I$>"3°® 
Р=ЧЈА (1%) 

GOSUB 1520 

FOR J=1 TO 28 
Z=INT(RND (1›ж&) +1 
ON 2 GOSUB 299,229,389,479,5 る 9, 50 
NEXT J 

GOTO 1800 

REM 

Х=3:Ү=3 

INU= ІМТ (КМО (1) ж4) +1 


ОМ ІМУ GOSUB 750, 870,990, 1110 
PAUSE Рж5 

I=STICK (@)> 

IF I=4 THEN GOSUB 1230 

GOSUB 1418 


RETURN 

REM 

X=14:Y=3 

INU= INT(RND С1›ж4) +1 

ON INU GOSUB 759,879,? タ 9,1119 
PAUSE Рж5 

1=STICK て 9> 

IF 1=5 THEN 60508 1230 

GOSUB 1419 

RETURN 

КЕМ 

X=25: Y=3 

INV=INT (RND (1) ж4) +1 

ОМ ІМУ GOSUB 750,870, 990, 1110 
PAUSE Рж5 

I=STICK (0) 

IF I=é THEN GOSUB 1230 

GOSUB 1410 

RETURN 

REH 

X=3:Y=13 

INV= ІМТ (RND (1) жа) +1 

ON ІМУ GOSUB 750, 870,990, 1110 
PAUSE Рж5 

I=STICK (0) 

IF I=1 THEN GOSUB 1230 

GOSUB 1416 

RETURN 

REM 

X=14:Y=13 

INV= ІМТ (АМО (1) ж4) +1 

ОМ ІМУ GOSUB 750,876, 998, 1110 
PAUSE Рж5 

I=STICK 0) 

IF 1=2 THEN GOSUB 1239 

GOSUB 1419 

RETURN 

КЕМ 


ІСІСОРҮКІӨОНТ 1983ж る 月 


FOR SHARP-X1 BY HEART SOFT 


ошоо альш ы 
ЖЖ ЕЕ: 


シマ スカ ? (1-3) "; 
“е 
THEN 1068 


画面 の 


20 
表 


No. 1 


No. 2 


№. 3 


№. 5 


ーー ニー ン ペ ベー ダ 


6. イン ベー ダー た た き 


BY HEART SOFT ШЕШ"; 


の 入力 。1 一 きま で 


枠 を 作る 


匹 の イン ペー ダー を 
示す る 


ー の 種類 を 決め る 5--- 


ラン ク に 合わ せ て 時 間 待 ち 


爆発 ルー チン へ 
消去 ルー チン へ 


өөө 10 点 イン ペー ダー 
Ш 
” 


UFO 1005-3005 


6. イン ベー ダー た た き 


668 
678 


X=25: Y= 


13 


INV=INT (КМО 1) ж) +1 


ON ІМУ 
PAUSE Р 
1=STICK 
IF I=3 


GOSUB 750,870, 990, 1110 
ж5 

9> 

THEN GOSUB 1230 


GOSUB 14180 


RETURN 
END 
REM 
COLOR 5 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
RETURN 
КЕМ 
COLOR 6 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
RETURN 
КЕМ 
COLOR 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
RETURN 
REM 


X,Y !:PRINT" вор) Ы 
X, Үжі:РБКІМТ" wa " 
Х, Y+2 : PR INT "sa. 
X, Y-tS:PRINT "E БЕ ШШ 
X, ҮздіРБІМТ" wa 
X, Y+5: PRINT " wa 
X,Y+ る iPRINT" mm um " 
X,Y+ ア iPRINT" В ЕН” 
X,Y+8:PRINT" Ы п " 


X,Y :PRINT" Ш m 
X, Y+1:PRINT" Ы пш " 
X, Y+2:PRINT" пи " 
Хх, ҮЗЗІРКІМТ" Шш ° 
X, Ү+4:РКІМТ" ЕЕЕ” 
X, Y+S: PRINT "wa 
X, Y+é: PRINT "üG ШЫҒЫНЫ Ы” 
X, Y+7:PRINT"E Ш ни" 
X, Y+8:PRINT" пва 


Х,Ү :PRINT" * 
Х,Ү+1:РЕ1МТ" に 

X, Y+2:PRINT" に 
X, ҮЗЗІРКІМТ" iwa 

х, Y+4:PRINT" ШШ ШШ ШШ" 
Х,Ү+5:РЕ1МТ" Www " 
Хх, ҮжбіРКІМТ" BE 
Хх, Y+7:PRINT" Ы 
X, Y+8:PRINT" Ы 


COLOR 3 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
RETURN 
REM 


X Y :РКІМТ" ы 
X, Үжі:РБІКМТ" к 

X, Ү+2:РВІМТ" ы 
X, Y+3:PRINT" mw 
X, Y+4:PRINT" ШЫ ëE ` 
X, Y+5: PRINT "wasa 
X, Y+é:PRINT" 
X, Y+7:PRINT" BE 
X, Y+8: PRINT" ki 


COLOR 2 


FOR K= 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
IF ІМУ 
IF ІМУ 
IF ІМУ 


1 TO 10:ВЕЕР1І:ҒОВ L=1 TO 
X, Y ЕРБІМТ" Ы € " 
X, Y+1:PRINT "E Шш Шш Шш" 
X。Y+2:PRINT" ЕВ ШЕ EH ` 
X, Y+3:PRINT" Ы а " 
X, Y+4 : PR INT "E ы 
Х,Ү+5:РЕІМТ" BE п " 
X,Y+ る iPRINT" ЕВ ЕН” 
X, Y+7:PRINT "E Шш HE Ef" 
Х,Ү+8:РЕІМТ" BE 
=1 THEN SC=SC+19 
=2 THEN SC=SC+Z9 
=3 THEN SC=SC+39 


No 6 


20 点 イン ペー タダ 


3054 ジ ベ ペー デ ダ 


UFO 


10:МЕХТ LiBEEP 0:NEXT К — #%# 


出 て 来 た イ ン ペ ー ダ ー に よっ て 
スコ ア を 加算 する 


IF INU=4 THEN SC=SC+INT(RND (1)xX30)*x18+10 
16 100 点 一 300 吉 の 問 の 乱数 (UFO) 


PAUSE 
RETURN 


REM 

LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
RETURN 
КЕМ 


X Y :PRINT" 
X, Үжі:РБІМТ" 
X, Y+2 : PRINT" 
X, Y+3: PRINT" 
X, ҮздіРБІМТ" 
X, Y+S:PRINT" 
X, Y+é ! PRINT" 
X, Y+7: PRINT" 
X, Y+8: PRINT" 


CLSICOLOR 7,8 
PR INT "SSE SHARP -X1 


LOCATE 


9,24 


РЕІМТ "ШШШ COPYRIGHT 


LOCATE 
PR INT* 
РКІМТ" 
PR INT" 
PRINT" 
PR INT* 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
RETURN 
REM 


9, 2 


COLOR 7,0 


LINE (0, 109) - (39, 19›, " 


LOCATE 
PRINT* 
LOCATE 
PR INT" 
LOCATE 
PRINT" 


9,12 


消去 


ІММЕКОЕК 22% VER 1.0 ШШШ; 


1983.6. BY HEART SOFT ШЕШ": 


"BF 


ШЕШ САМЕ OUER ШЕШ" 


9,14 


アナ クノ トク テン リリ "1861 "77 755" 


9,18 


モウ 1 ト ~ 


I$=INPUT$ (1) 

IF I$="Y" OR I$="y" 
IF I$="N" OR I$="n" 
GOTO 1890 


ヤリ マス カ ? (Y/N) "; 


THEN RUN 
THEN CLS:END 


ゲー ム オ ー パ バー 時 
Y— RUN 
N— END 


6 . イン ベー ダー た た き 


ШЫҒЫН --СЕР--<1 TV TENNIS VER 1.2 ШЫНЫН 
iRE= 2 RIGHT SCORE= 


近頃 , ゲー ムセン ター に は 数 多く の ゲー ム が , 所 狭し と 置い て あり , 
中 に は CPU を , 4 つも 持ち , 大 変 大 掛り な も の も 多い の で す が , な ん 
と いっ て も TV ゲー ム の 本 家 は , この よう な TV テニ ス が 原形 で す 。 こ 
れ は , イン ベー ダー や , ブロ ッ ク 〈 く ず し 等 が 出る 前 の も の で , 白黒 ディ 
スプ レイ に , パドル が 2 つ あ ぁ り 両側 2 人 で 玉 を た だ 打ち 返す も の で し た 。 

5/7 5, W 
いた も の で し た 。 ЖЫН, 大 枚 3 万 円 も は た いて , 買っ た 思い 出 が あり 
ます 。 そこ で , 本 機 を 使っ て TV テニ ス を 作っ て みよ うと 思っ た の で す 
が , 今更 た だ その まま 再現 し た の で は , あま り に つま ら な い の で , 途中 
с, XX を 出し 乱数 的 な 要素 も 組み 込み まし た 。 


し か し , それ が 出 た 当時 は 、「 家 庭 用 テレ ビ で テニ ス が で き 


ゲー ム の 遊び 方 


これ は 今 説明 し た 通り , 動く 玉 を パドル に 当て て 相手 の 方 へ 打ち 返し 
得点 を 競う も の で す 。 右側 の 人 は テン キー の , 9 と 3 С, 左側 の 人 は , 
7 と 1 で 動か し ます 。 パドル や 壁 に 当っ た と き は 正 反 射 し ます が , X に 
当っ た と き は ラン ダム に 跳ね 返る よう に な っ て いま す 。 どちら か が 5 ポ 
イン ト 取 る と , 勝負 が 決ま り ま す 。 


変数 表 


Y 1—-# ? > у k @ Y 座標 

Y 2—Z£ >? > z F @ Y 座標 

I 1 $ つ 右 用 の キー 入力 

I 2 $ つ 左用 の キー 入力 

X 3 っ BALL の X 座 標 

Y 3—BALL O Y 座標 

C, D= 乱 数 (1 or —1) 

І, S つ 左 の スコ ア 

R, S=> 右 の スコ ア 

A, B っ ラケット を 動か す と き の 代 用 変数 


. TV テニ ス 


TV テニ ス ・ フ ロー チャ ー ト 


ポー ル の 出る N қ 
所 決定 ボー ル を 動か す 


| XY 座標 を ラン 
ダム に 決定 


52 ТҰП 


# ポー ル の 出る j Í 
АЕ | 進む 方 向 を ラン ЛЫ ЕДАМ 
ーー ダム に セッ ト сым 


ポー ル の 進行 方 向 
を ラン ダム に セッ ト 


ボー ル 移 動 


ボー ル が 
ラケット か ら は 


1 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
2 КЕМж ж 
З КЕМж ШЕШШ TU TENNIS ЧЕК, 1.0 ҒЫНЫ > 
4 КЕМж ж 
5 КЕМж ІСІСОРҮЕІӨНТ 1983ж る 月 ж 
é КЕМж ж 
7 ВЕМж FOR 5НАЕР-хі BY HEART SOFT ж 
8 БЕМж ж 
9 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


18 MIDTH 40:CONSOLE 8, 25 
20 CLICK OFF:COLOR 7, 0:С15 

38 Ү1=12:Ү2=12 

48 GOSUB 620 :^л°ху セッ テイ 

50 GOSUB 110 :/77-4 スタ ー ト 

60 60508 260 :75% ラケット 

78 GOSUB 340 :7Е%%)) テテ ッ ト 

88 GOSUB 170 : 8 OM 

98 IF X3<=1 OR X3=>38 THEN 420 
180 вото é@ 

110 REM 

120 X3=INT(RND (1)x20)+10 — 
130 Y3=INT(RND (1) ж14) +7 スペ ー ス 以外 は や り 直し | ホ ポール の 出現 
140 IF CHARACTER* (ХЗ, ҮЗ) <>" " THEN 120 — する 所 を 決め る 
158 GOSUB 820 

160 RETURN 

179 REM 

188 LOCATE X3,Y3:PRINT" "j 
198 РФ-СНАКАСТЕНФ(ХЗ%С, ҮЗ+0> 
208 IF РФ-"Ш" ТНЕМ D=-D 

210 IF РФ-"Ш" THEN C=-C 

220 IF РФ-"Х" THEN GOSUB 820 
230 X3=X3+CiIY3=Y3+D 

248 COLOR é 

259 LOCATE X3,Y3:PRINT"e"; 


ボー ル の X,Y 座標 


ボー ル を 1 ヶ 動 か す ル ー チ ン 
Ш 52.517 КБЕ 
図 な ら ラ ンダ ム に 動か す 


260 REM 

270 11=STICK〈@〉:COLOR 2 

280 IF 11= 9 THEN =-1 ーー 一 上 へ 

290 IF 11= 3 THEN А=1 一 一 一 下 ^ 右 の 人 の キー 入力 用 


300 IF Y1+A<3 OR Y1+A>20 THEN RETURN 一 一 はみ出 し 処理 
310 Yl1=Y1+A:A=0 
320 LOCATE 37,Y1:PRINT" ";CHR%(2?,31)j"NM";CHR$%*(22,31);"NM"iCHR$(29, 31); ーー 


339 RETURN S su Ë = 
ЗА НЕМ 右 の ラケット を 表示 
350 12=5ТтІСК (0) :COLOR 4 

368 IF 124 7 THEN B=-1 — 

379 IF I2= 1 THEN Bs1 ---- Т^ 左 の 人 の キー 入力 用 


380 IF Y2+B<3 OR Y2+B>29 THEN RETURN 一 一 は み 出 し 処理 

390 Ү2=ү2+В:В=0 

400 LOCATE 2, Ү2:РКІМТ" ";CHR$%$ (29,31) ; "Ш"; CHR$ (29,31) ; "Ш"; СНЕФ (29,31); " фе, 
АӨ, RETURN 左 の ラケット を 表示 
420 REM 

430 IF X3<=1 THEN RS=RS+1:GOSUB 870 

440 IF X3>=38 THEN LS=LS+1:GOSUB 870 

458 LOCATE ХЗ, Y3:PRINT" "; 

448 COLOR 7 

478 LOCATE 3, 3:PRINT"LEFT SCORE=";LS; | スコ ア の 表示 
480 LOCATE 23,3:PRINT"RIGHT SCORE= "5RS5 

498 IF LS=5 ОК RS=5 THEN 510 

502 GOTO 50 

510 REM 

520 LOCATE 0,7 

530 PRINTSPACE*$ 2800); 

540 LOCATE 0,11 

550 PRINT" GAME OVER";j 

548 LOCATE 0,13 

570 PRINT" モウ 1 ト “ヤリ マス カ ? X(Y/N) "$ 

580 I$=INPUT$(1) 

598 IF I$="Y" OR 1%="у" THEN RUN | 再 ゲ ー ム か ? 
る 99 IF 1%="М" OR ІФ="п" THEN CLSi END 

618 GOTQ 580 

る 29 REM 

る 39 CLSsCOLOR 7,1 

648 LOCATE 0, 1:РКІМТ"' ШШШ SHARP-X1 ТУ TENNIS VER 1.0 ШШШ: 
650 LOCATE 3,3:PRINT "LEFT SCORE=" 3LSs 


どちら が 勝っ た の 判定 


ウー オー 


7, TS = 


668 LOCATE 23, 3:PRINT"RIGHT СОКЕ ="; К5; 


る 79 PRINT 
る 8@ COLOR 3 

698 PRINT" "36ТВІМб%Ф (34, "&"›;" тў 

700 PRINT" ИИВ"; STRING$ (26, " ") "И "ове ж 

710 LOCATE 0,21 | 

728 PRINT" ЖИЕ"; STRING$ (28, " "›; "ЫН “з 画面 作成 ルー チン 
730 PRINT" "3STRING ま 34)" 開 " う 5" єў 


748 COLOR 7 

750 PRINT" BB COPYRIGHT 1983. 4 BY HEART SOFT ШЕШ”; 
760 FOR 1:1 TO 10 

770 X=INT(RND (1) ж20) +10 


780 Ү= ІМТ «ЕМО (1) ж14) +7 ФФОЖ を 10 個 書く 
798 LOCATE X,Y:PRINT"X"; 

808 NEXT 1 J 
810 RETURN 

828 C=INT(RND ‹1) ж2> 

83@ IF C=@ ТНЕМ C=-1 ELSE С=1 5 кені Р 

848 D=INT(RND (1) ж2) х 

850 IF D=9 THEN D=-1 ELSE D=1 

868 RETURN 

878 SOUND 7,28:500М0 1,9:SOUND З, е 


880 FOR 1-15 ТО 6 STEP -1 

898 SOUND 0,25S-Iw&:SOUND 2,204-1ж4:500МО 8, I:SGUND 9,1 
900 SOUND 180, 1/1.5:500М0 6, 30-1 

910 PUSE 1 

920 МЕХТ І 

930 RETURN 


ТЕММІ5 VER 1.8 ШЫНЫН 
RIGHT 5СОРЕ- = 


САМЕ OVER 


モ り 1 ト “~ ヤリ マス 2 て ツン N) 較 X 
x 


x 


ゲー ム 終 了 . 1 対 5 で 右側 プレ イヤ ー の 勝ち ,/ 


WE SHARF-5Si コドン トリ うー VER 1.06 НИН 
ҮОПЕ SCORE= 1 COMPUTER 5СОРЕ- 2 


ШЕ ССІСОРУБІСОНТ 1983.7 Bv HERRT SOFT WE 


陣取り ゲーム は , ブロ ッ ク 〈 く ず し な どか が 出現 し た 当時 流行 っ た TV ゲ 
ー ム で す 。 当 時 は 。 CPU 人 など を 使わ も ず に 、TTL (トマ マタ る スタ トド 
ラン ジス タ ・ ロ ジッ ク ) だ け で 作ら れ て いた よう で す 。 その 後 , 秋葉 原 
の パー ツ 屋 で “陣取り ゲー ムキ ッ ト 〇 OO 円 ” 等 と いう ふう に 売っ て い 
50%, 見 か けた こと が あり ます 。 内容 は , ほとん ど 1 チ ッ プ か 2 チッ 
プ の も の で , FL & k kI ЖМК E IC Sr? СКО b 2 C 7, 
そこ で X 1 で , これ も 再現 し て みよ うと 思い 作っ て み ま し た 。 陣取り ゲ 
== で す 。 


8 . 陣取り ゲー ム 
ゲー ム の 遊び 方 

あな た は , 上 手 に 自分 の "W zi o <, 敵 の “ 画 ” 緑 の 進 む 場 所 
を 無く せ ば 良い 訳 で 。 自分 自身 ・ 敵 ・ 壁 に 当たる と 死ん で し まい ます 。 
どちら が 長 時 間 進 ん で いら れる か を 競い , 先 に 5 ポイ ント 取っ た 方 が 勝 
ちと な り ま す 。 移動 は チ テン キー の , 2, 4, 6, 8 を 使い , Т, Ж, Ж, 
上 へ 方 向 を 変え ます 。 行 番号 240 の , Z=STICK (0) %, Z= テ STICK 
(1) と すれ ば ぱ ば, ジョ イス ティ ッ ク で も 楽し むこ と が で きま す 。 こ の ダ 


ー ム の 敵 , X 1 の 動き は ある 特徴 が あり ます の で , よく 考え て 移動 させ 
れ ば 勝て る で し ょ う 。(770 行 一 を 見 れ ば 分 か る と 思い ます が ……… ы) 


変数 表 


х1, Y1 つ 自分 の 画 の X, Y 座 標 

Ү2, Ү2-МОШОХ, Y 座 標 

XX, YY 進行 方 向 の 定義 

Z ユ キー 入力 (STICK 文 ) 

P 一 自分 の 進行 レー チン へ (ON Р СОТО ~) 
R 一 敵 の 進行 レー チン へ (ON R СОТО ~) 
1 一 敵 が 曲 が れ な く な っ た と き の 判 定 用 

Y S つ 自分 の 得点 

CS っ 敵 の 得点 

I$ っ っ ォ キー 入力 用 (INPUT $) 


8. 陣取り ゲー ム 


陣取り ゲー ム ・ フ ロー チャ ー ト 


X1 が 勝ち の と き 


あな た が 勝ち の と き 


| 進行 方 向 に 較 を 出力 か 


8. 陣取り ゲー ム 


1 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
2 КЕМж ж 
З КЕМж ШШШ ジン トリ 77-2 VER 1.0 ШШШ > 
4 КЕМж ж 
5 КЕМж ІСІСоругіоҺ% 1983ж 7Я ж 
é КЕМж ж 
7 КЕМж FOR SHARP-X1 Ву Heart Soft x 
8 КЕМж ж 
9 БКЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


10 CONSOLE 9@,25:MIDTH 40 
20 CLS:CLICK OFF:COLOR 7,0 初期 化 ルー チン 

30 RANDOMIZE:TEMPO 8800 

48 CLS:COLOR 7:LOCATE 0,0 

50 PRINT"WNWWWR HARP-X1 シド ント リ 77-2 VER 1.0 ИИИ"; 
68 LOCATE 0,24 

78 РКІМТ" ШШ ІСІСОРҮКІОНТ 1983.7 BY HEART SOFT ШШ"; 
80 LOCATE 5,2:PRINT"YOUR SCORE=";YS 

98 LOCATE 20,2:PRINT"COMPUTER SCORE=";CS 

199 COLOR 5 

118 (ІМЕ(0,4)-<39,222," В ーーーーーーー 枠 を 表示 する 
120 ХІ = ІМТ (RND (1) ж35) +2 

130 Y1=INT(RND (1) ж18) +5 

140 IF CHARACTER ま CX1, ҮІ) <>" " THEN 120 

150 COLOR 2 

168 LOCATE ХІ, ҮІ:РЕІМТ" Ш"; і 
178 X2=INT CRND (1) ж35) +2 талас РТ) 
180 Ү2=1МТ (АМО (1) ж18) +5 и 0,7 io 
190 IF CHARACTER を (XZ2, Y2) く >" " THEN 178 

200 COLOR 4 

210 LOCATE х2, Ү2:РРІМТ" Ш"; 

228 BEEP:PAUSE 20 

230 P=INT(RND (1) жд) +1: = ІМТ (ЕМО (1) 4) +1 ーー 初め に 進む 方 向 を 決め る 

240 Z=STICK (0) 

250 IF Z=2 THEN P=1 STICK X を 使用 

260 IF 2-6 THEN P=2 KEY 入 カ ここ を Z=STICK(1) に する と 
270 IF Z=8 THEN P=3 ジョ イス ティ ッ ク て て きる 
289 IF 2-4 THEN Р=4 

298 ON Р бото 370,420,478,520--- 名 移動 ルー チン へ (自分 用 ) 

зев COLOR 2 

310 LOCATE х1, Ү1:РЕІМТ" Ш"; 
329 ом к вото 57а, る 29, 47а, 72а 
330 COLOR 4 

340 LOCATE Х2, Ү2:РВІМТ"Ш"; 


自分 の 画 を 表示 する 


敵 の 画 を 表示 する 


各 移動 ルー チン へ ( 瑞 ・X1 用 ) 


358 PLAY"04CiE" 移動 音 

3 る 9 бото 240 

370 REM 

380 XX=9iYY=1 

390 IF СНАКАСТЕН% (х1 «ХХ, ҮІ +YY) = "Ш" ТНЕМ 1000 壁 ・ 目 分 ・ 敵 に 当っ た と き の の 処理 


408 X1=X1+XX:Y1=Y1+YY 
410 GOTO 300 

420 REM 

430 xX=1:YY=80 

448 IF CHARACTER$ (Х1 «ХХ, Y1+YY) ="Щ" ТНЕМ 1000 

450 X1=X1+XX:Y1=Y1+YY 

448 GOTO 300 

478 КЕМ 

488 ХХ=0:ҮҮ=-1 自分 の 画 の 移動 ルー チン 
490 IF СНАКАСТЕКФ (Х1 +ХХ, ҮІ +ҮҮ) ="Щ" THEN 1006 

500 X1=X1+XX:Y1=Y1+YY 

518 GOTO 300 

520 REM 

530 XX=-1:YY=@ 

540 IF СНАКАСТЕКФ (х1 +ХХ, Y1+YY) = "Ш" THEN 1000 

550 X1=X1+XX:Y1=Y1+YY 

548 бото зеге 

570 REM 

580 XxX=@:YY=1 

590 IF СНАКАСТЕВ%Ф (Х2+ХХ, Y2+YY) =" G" THEN 770 壁 ・ 自 分 ・ 敵 に 当っ た と き の 処 理 
608 X2=X2+XX:Y2=Y2+YY:I=0 

る 1@ бото 330 

620 REM 

630 XX=1:YY=0 

448 IF СНАКАСТЕК%Ф (х2 +ХХ, Y2+YY) ="Щ" THEN 770 

658 X2=X2+XX:Y2=Y2+YY:I=0 


8 . 陣取り ゲー ム 


668 сото 330 
678 REM 英 ・X1 の 田 の 移動 ルー チン 
688 XX=0:YY=-1 

698 IF CHARACTER$ (X2+XX, Y2+YY) ="Щ" THEN 770 
708 X2=X2+XX:Y2=Y2+YY:I=0@ 

710 GOTO 330 

728 REM 

730 XX=ー1 1 YY=9 

748 IF CHARACTER ま CX2+XX) Y2+YY) = "Ш" ТНЕМ 778 
750 X2=X2+XX:Y2=Y2+YY:I=0 

768 вото 330 


770 БЕМ | 
780 1=1+1:1Е 124 THEN 899 4 回 曲 ろ うと し て 曲 れ な けれ は X1 の 負け 
798 R=I:GOTO 329 画 に 当っ た と き に 進路 変更 を する 


800 КЕМ 
818 TEMPO 898 
828 Рі АҮ"О4СрЕЕбАВО5С " 敵 X1 が 負け た 時 の ルー チン 


B39 YS=YS+1 

848 IF YS<>5 THEN 40 

859 COLOR 7 

868 LOCATE 5,2:PRINT"YOUR SCORE="jYS 

870 LOCATE 29,2:kPRINT"COMPUTER SCORE=";CS 

зей COLQR 5 

890 ІІМЕ (0, 10) - (39, 14), " ",ВЕ 

йа LOCATE 0,11 

910 PRINT" GAME ОЧЕК ! 

920 LOCATE 0, 13 

930 PRINT" ァ ナ ラノ カテ テス a あな た の 勝ち 
948 LOCATE 0,15 

950 PRINT" モウ 1 ト * рутал? (Y/N)"; 

Фей I$=INPUT$(1) 

Ө78 IF 1Ф-"Ү" OR 1%-"у" THEN RUN 

980 IF 1%="М" OR 1%="п" THEN CLSiEND 

??@ё БОТО 9460 

1008 REM 

1010 TEMPO вва 

1020 PLAY"05CO4BAGFEDC" 
1030 CS=CS+1 

1040 IF CS<>5 THEN 40 
1050 COLOR 7 

1048 LOCATE 5,2:PRINT"YOUR SCORE=";YS 

1070 LOCATE 20,2:PRINT"COMPUTER SCORE=";CS 

1888 COLOR 5 

1090 ІІМЕ(0,10)-Х(39,160," ",BF 

1108 LOCATE 0,11 

1110 PRINT" GAME QUER !! 

1120 LOCATE 0,13 

1130 PRINT" X1 ノ カチ ボス あな た の 負け 
1140 LOCATE 9,15 


1150 PRINT" モウ 1 ト ~ ヤリ マス カ ? (Y/N)"; 
11 る 9 I$=INPUT$ (1) 
1178 IF ІФ="Ү" OR I*="y" THEN КИМ 
1180 IF 1%-"М" OR I$="n" ТНЕМ CLS:END 
ГА 


目 分 が 負け た と き の ル ー チ ン 


1190 GOTO 960 
N 


Z 


9 
БОЁ 7 — ム (G-RAM 使 用 ) 


LEFT SCORE= 2 RIGHT SCORE= 4 


ある 国 , A 国 ・B 国 が あり , この 2 国 は 犬猿 の 仲 で て , た だ 今 戦争 状 
態 に あり ます 。 し か し 2 国 間 に は 高い 山 が そびえ て いて , 相手 側 へ 行 
く こ と は 不可 能 で す 。 その 当時 は 科学 も 発達 し て いな か っ た の で ミサ イ 
ル 飛 行 機 な ど は あり ませ ん 。 ある の は 単発 式 の 大 砲 1 門 ず つ で す 。 2 
の 大 砲 は 一 度 打つ と 次 に 打つ まで 時 間 が か か り ま す 。 A 国 ・B 国 順番 に 
打ち 返し ます 。 

目標 は 敵国 の 大 砲 で す 。 こ れ を や られ る と 反撃 が で き な く な り 戦 争 に 
負け て し まい ます 。 う まく 角度 。 火薬 の 量 を 調節 し まし ょ う 。 

この プロ グラ ム で A 国 の 平地 , B 国 の 平地 . 山 の 高 き を ラン ダム に 決 
め て あり ます の で , 山 に な ら ず 谷 に な る こと も あり ます 。 

大 砲 の 弾 は SIN カー ブ を 使っ て 飛ば し て いま す 。 な お 判定 用 に は , 


POINT 文 を 使用 し て いま す 。 


9 . 砲撃 ゲー ム 
ゲー ム の 遊び 方 


画面 ( 山 ・ 平 地 砲台 ) を 表示 し た あと 角度 ・ 強 き の 順 で 入力 し て 下 き 
со 左右 ど ちら か ら 始 め る か は ラン ダム で 決め て いま す 。 

角度 は 相手 側 を 0 度 , 自分 の 真 上 が 90 度 で 0 一 90 の 間 で 入力 し て 下 き 
い 。 強 き は 1 一 30 ま で で す 。 な お , どちら も 小数 も 使え ます 。 

5 回 や っ て 勝負 を 決め ます 。 た ま に 弾 の 当っ た 究 が 変 な と ころ に 出 て 
くる 場合 も あり ます が , この プロ グラ ム で は 計算 上 , 弾 の あたら な いと 
ころ は あり ませ ん 。 


高 得点 の 取り 方 


まず だ いた い の 見 当 を つけ て , 1 発 目 を 打ち ます , あと は 強 さ を 調整 
すれ ば , まず 当たり ます , あと は じゃ 道 な の で す が , 山 に 向け て 弾 を 打 
b, 山 を けず っ て トン ネル を 作る 方 法 も あり ます 。 

何 ゲ アゲ ー ム か や っ て いる うち に だ いた い の 見 当 は つい て きま す ョ グ ク 


改造 へ の ワン ポイ ント ・ ア ドバイ ス 
この プロ グラ ム で は ,。 変数 が 沢山 出 て きま す 。 ここ を 変化 させ れ ば , 
いろ いろ な 画面 が 出力 され る よう に な っ て いま す 。 いろいろ 遊ん で み ま 
L bo 


変数 表 


LH っ 左 側 の 砲台 の 水平 位置 HH 左右 砲台 の Y 座標 


RH 右側 Д Е 一 弾 の 角度 , 当っ た か 否 か の 判定 用 
MH っ 山 ま た は 人 和 谷 の 高き J $, IT $ っ キー 入力 用 
LP つっ 左 の 砲台 の X 座 標 1 ラル ー プ 用 (時 間 待ち ) 
ЕР-Ж Д D P= 砲台 の 位置 を ずら す , 仮 の 変数 


9. 砲撃 ゲー ム 


砲撃 ゲー ム ・ フ ロー チャ ー ト 


山 を 削る 


YES 
RETURN 


9 . 砲撃 ゲー ム 


1 РЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

2 ВЕМж ж 

З КЕМж ШЕШШ 722° + y" -¿ VER 1.0 ШЕШШ ж 

4 КЕМж ж 

5 КЕМж [CJCOPYRIGHT 1983ж 7 月 x 

é КЕМж ж 

7 БЕМЖ FOR SHARP-X1 BY HEART SOFT ж 

8 БЕМж ж 
 БЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

19 ОРТІОМ SCREEN 1:ІМІТ"СЕТ: ------79>74/У/2%%3542127 $(WIDTH40 T) 
28 DIM AX(12) ws 

за GOSUB 1199 ——ə — — PUT@ 用 デー タ の 読み 込み 

48 GOSUB 1989 初期 デー タ 

50 CLS41PALET 

る @ FOR R=1 TO 5 | 

79 GOSUB 150 画面 作成 > メイ ン ル ー チ ン 
808 GOSUB 540 数 値 入力 及び 

90 NEXT R 砲撃 戦 

108 


LOCATE 3,2:COLOR る iPRINT"LEFT SCORE="jLG БЕР 
LOCATE22,2:COLOR る IPRINT"RIGHT SCORE=";RQ 


128 GOTO 1110 


138 бото 50 

140 REM 

150 LH=INT(RND (1)x 80+30) 一 一 左 の 平地 の 高 さ ここ を 変化 させ れ ば 

168 RH=INTCRND〈1〉 80+30) 一 一 右 の 平地 の 高 さ ú, 谷 の 出 方 が 変化 する 

178 NMH=INTCRND (1) жі20+10) — u! 11608 Š 

188 IF АВ5«МН-(Н2<48 THEN 158 | も し 山 ま た は 谷 と 平地 の 差 が 40 よ り 小 さけ れ ば や り 直 し 
198 IF АВЅ (МН-ЕН) <40 THEN 1568 

200 CLS4 

218 LOCATE 3,2:COLOR る IPRINT"LEFT SCORE=";LQ 


220 LOCATE22,2:COLOR る IiPRINT"RIGHT SCORE=";RQ 
230 LINE (8, 199-1Н) - (120, 199-LH), PSET, 4 
248 DL=MH-LH: T=LH 

258 FOR 
268 Т2-іН%((6ІМС(1-129-152/15ж3. 1416/2) +1) /2› *2xDL 
278 LINE (1-2, 199-Т) - (I, 199-Т2),РЅЕТ, 4 

280 T=T2 

290 NEXT 

399 DL=MH-RH 

310 FOR I=1é2 TO 200 STEP 2 

320 Т2-БВН%((-6ІМ(<1-1463-152/15ж3. 1414/2) +1) /2) ^2DL 
330 LINE (1-2, 199-Т) - (1, 199-Т2),РЅЕТ, 4 
340 T=T2 

350 NEXT 

3 る 9 LINE (200, 199-RH) - (311, 1 の ウーRH) , PSET, 4 
379 LINE (0, 9) -(31?, 199525, PSET, 4, B 
380 LINE (8,8) - (311, 191),РЅЕТ, 4, B 
390 РАІМТ(1,12,4,4 ) ぬり つぶ し 
400 PAINT(1 9, 1902,4,4 

410 LP=INTCRND (1)189) +39 

428 PP=LP:HH=LHIGOSUB479 左右 の 砲台 の 位置 を 決め る 
438 КР=ІМТ (КМО (1) ж109) +200 

448 PP=RP : HH=RH: 80508470 

459 RETURN 

468 REM 

470 LINE (РР-5, 199- CHH+ 1 ) ) - (РР-5, 199- (НН+5) ) , PSET, 2 
480 LINE-(PP ,199-(HH+7)), PSET, 2 


I=122 TO 140 STEP 2 


| атову жз 2 


498 LINE- (РР+5, 199- (НН+5) ), PSET, 2 砲台 を 表示 する ルー チン 
509 LINE-(PP+5, 199- (НН+1)),РЅЕТ, 2 

518 LINE-(PP-5, 199- <HH+1) ) , PSET, 2 

520 PAINT(PP+2, 199-<НН%522,2,2 

530 RETURN 

549 COLOR 1 

550 IF RND(1)>.5 THEN 480 —— 左右 どちら か ら 始 め る の か 決め る 

560 LOCATE 0,22:PRINT 5РАСЕФ(399; ` 


570 LOCATE 5, 22: INPUT "カク トド ="; ЈФ 
580 IF VAL (J$)<0 THEN 560 
590 IF ЧА ‹ЈФ) >=90 ТНЕМ 560 


左側 の 角度 の 入力 
1 -90 ま で , それ 以外 は や り 直 し 


る 99 E=VAL (J$) 

る 19 LOCATE 0,22:PRINT ЗРАСЕФ ‹39) ; 

628 LOCATE 5, 22: INPUT" ツ ウヨ サー =";J$ 

る 39 IF VAL (J$) =9 THEN る 19 左側 の 強 さ の 入力 

る 49 IF VAL(J を )>=39 THEN 616 1 一 30 ま で , それ 以外 は や り 直 し 
650 F=UAL (J$) 


9 . 砲撃 ゲー 


る る 9 
る 7@ 


ム 


D= 1:X=LP:Y=LH+8:G0SUB898— š £ ft (44 JU — f > — 
IF HIT THEN 810 

LOCATE 0,22:PRINT ЅРАСЕФ% (39) ; 

LOCATE 25, 22: ІМРОТ "520 ="; ЈФ 


IF UAL (J%) =9 THEN «ағ 右側 の 角度 の 入力 
IF VAL (J$) >=90 ТНЕМ 4809 
E=UAL (J$) 


LOCATE 9,22:PRINT SPACE ま (3 の ) ; 
LOCATE 25, 22: INPUT "ウヨ サー ="; ЈФ 


IF ЧАС (J$)=0 THEN 7380 右側 の 強 さ の 入力 
IF UAL(J$) >=39 THEN 730 

F =UAL (J$) 

D=- 1:X=RP:Y=RH+B:GOSUBB タ 8 — жат ルー チン へ 
IF NOT HIT THEN 548 

КЕМ 

IF RGT= -1 THENX=LP : Ү=1 Н: КО = 80 +1 


IF RGT<>-1 THENX=RP:Y=RHILQ=LQ+1 


GOSUB 1240:ҒОКІ= 1 ТО7 ИИ; 

РОТА (X-3, Ү2-3) - (Х+4, Ү2+4), АХ, РЅЕТ, І 弾 が 砲台 に 当っ た と き 

PUTA (X-3, Ү2-3) - (Х+4, Ү2+4), AX, PRESET, І 

NEXTI 

RETURN 

REM 

DX=FXCOS (Е/180ж3. 14162 жо: рү=ЕжбІМ‹Е/і80жЗ. 1416) ж, 4177—— 弾 が 飛ぶ 放物線 の 関数 
YZ=199-Y 

IF POINT (X, YZ) =@ Дың ena neresi, 現在 飛ん て で いる 場所 の 色 を 判定 する 
IF POINT(X, Ү2) =4 OR POINT (X, Ү2) =2 THEN SM=TRUE 


PSET (X, YZ, 2» 
РЕІМТСНАФ (7); _ 

弾 を 表示 
PSET ‹Х, YZ, @› を を 表示 する 
IF SH THEN 1010 
X=X+DX: Y=Y+DY 
IF Y<1 OR Y>199 THEN197@ 


DY=DY-. 3 = — с. бек аб S 1) 7 ур CE гш гуу 

GOTQ ヶ 9@ 

IF ABS (X-LP) АМО ABS〈Y-LH- す > THEN RGT=TRUE Ms о фер жөне 
IF ABS ‹Х-ВР) АМО ABS (Y-RH-4) THEN RGT=FALSE:HIT=TRUE:RETURN J 土 6 ド ッ ト 以 内 


IF X=>315 THENHIT=FALSE : RETURN 


IF Х«<5 THENH IT=FALSE : RETURN は み 出 し 処理 

IF Ү2=<2 THENHIT=FALSE : RETURN 

PUTg (X-3, Ү2-32-<Х%4, Ү2+4), AX, PRESET, 7 —— 山 に 当っ た と き に 穴 を あけ る 
HIT=FALSE iRETURN 


TRUE=- 1:FALSE=NOT TRUE 

NN= プ 2 』 メメ =28 : YY= 1 1 

RETURN 

LOCATE 15,180:COLOR 2 

PRINT" Game Over" 

LOCATE 12,12:COLOR 1 ) 
PRINT"*21k" ヤリ マス カウ て ヤン N) "j терет 
I$=INPUT%(1) 

IF 1%-"у" OR 1%="Ү" THEN RUN 

IF I$="n" OR I$="N" THEN CLS4:END 

GOTO1150 

REM 

FOR I=0 TO 11 

READ А (1›:МЕХТ I 

DATA 15872 ,32439 ,32439 ,15999 ,15872 ,3243? ,32639 ,15999 ,15872 ,32632 , 


32639 ,15999 


1238 
1240 
1250 
1260 
1278 
1280 
1290 
1300 
1310 
1329 


RETURN 

КЕМ 727 爆発 デー タ の 読み 込 
SOUND 1,39!SOUND 9,239 

SOUND 3,39:SOUND 2, 230 

SOUND 5,30:500М0 4, 230 

SOUND 6,31:500М0 7,&HC8 爆発 音 

SOUND 8, 16:500М0 9, 16 

SOUND 10,16:5600М0 11,216 

SOUND 12,29:500М0 13,0 

RETURN 


10 
算数 教室 


ENE СНЯКР-Х1 すっ スウ キョ ウッ ララ VER 1.0 Was 


+00 1 


19І9 イク ワリ テリ ショ カウ? 9258 


ШЕШ COPYRIGHT 1983.6. BY HEART SOFT ШЕШ 


マイ コン を 使っ て 簡単 に で きる CA I を と 思い に , 作っ た の が この 算数 
教室 で す 。 `СА 1” と は Computer Assisted Instruction の 略 で , 
計算 機 を 会 話 型式 で 利用 し た 教育 方 式 の こと で す 。 つ まり コン ピュ ー タ 
ー が 間 題 を 出題 する 先生 と な り , あな た が 生徒 に な る と いう こと で す 。 
この 算数 教室 は , 小学 生 低 学年 用 の 加減 算 で す が , 乗算 , 除算 が で きる 
よう に し て みる の も 良い と 思い ます 。 


10. 算数 教室 


プロ グラ ム の 使用 法 


問題 は 全部 で 10 問 , 出題 され ます 。 加算 , 減算 , 数 は ラン ダム て で 決め 

て いま す が , 常に 上 の 数 の 方 が . 下 の 数 より 大 きい よう に 決め て いま す 。 
も し , これ を し な いと 減算 の と き , 答え に 負 の 数 が 出 て し まう 可能 性 が 
あり ます 。 もっとも, これ を し た の で , 下 の 数 に ゼロ か が 出る 可能 性 も , 


増え て し まい まし た が ……。 正 解 の 場合 は 画面 が 緑色 に , 不正 解 の 場合 は 画 
面 が 赤色 に な り ま す 。 全 間 正 解 し ます と , 最後 に 音楽 が 流れ る よう に な 
っ て いま す 。 

変数 表 
I $ み キー 入力 用 K 人 っ 答え を 入力 する 変数 
P-> > 3 2 ZZ 正解 
М1, M2 人 = 問題 Q= 正 解 し た 数 
M 3 っ 十 。 一 の 区 別 I— )v— ZH 


X, Y 一 数 字 を 出力 する X, Y 座標 


ШШ 5HRRF-1 1227 t3555 VER 1.0 0 


用 1082345 18 É 154035 


tO 1 に Яла) 5120? (Y/ s 
COPYRIGHT 1983.6. BV HERRT SOFT Ж 


10. 算数 教室 


10. 算数 教室 


1 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
2 REM* ж 
З КЕМж ШШ МАТНМАТІС LESSON VER 1.0 ШШж 
4 ВЕМж ж 
5 КЕМж [CJCOPYRIGHT 1983ж る 月 ж 
é КЕМж ж 
7 КЕМж FOR SHARP-X1 BY HEART SOFT x 
8 КЕМж ж 
% КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


10 WIDTH 49:CONSOLE 0,25 

29 С01.087,0:С15:С612Е 1 

39 LOCATE 0,1 

40 РКІМТЕО "ШЕШЕ SHARP -X1 サン スウ キョ フシ ツ VER 1.0 ШЫҒЫ"; 
50 LOCATE 0,24 

68 РЕ1МТ#@ "ШШШ COPYRIGHT 1983.6. БҮ HEART SOFT ШЕШ”; 
70 CSIZE З 

88 LOCATE 12, 10:PRINTBR0 "1...1 ケタ リ 

90 LOCATE 12, 12:PRINT#0 "2...2 99" 

100 LOCATE 12, 14:PRINT#0 "3...3 79" ラン ク の 入 カ 1 一 3 ま て 
110 LOCATE 6,20:С512Е 2 

120 РЕ1МТ#@ "№2 クラ スニ シマ スカ ? リ ョ 

130 I$=INPUT$ (1) 

140 IF 1%<"1" OR I$>"3" THEN 130 1 一 3 以外 は や り 直 し 
150 P=VAL (1%) :С_5:С512Е 60 

160 LOCATE 0,1 

170 РЕІМТ" ШШШ SHARP -X1 サン スウ キョ ウシ ツ VER 1.0 ШЫҒЫ"; 
189 LOCATE 0,24 

190 РКІМТ" Ш COPYRIGHT 1283.4. БҮ НЕАКТ SOFT ШШ; 
200 REH 

210 FOR 1=1 TO 10 

228 Mi=INTCRND (1›ж1@^Р› 

230 М2=1МТ ‹ЕМО (1) жій^Р) 問題 を 決め る ル 
240 IF NM1<M2 THEN 228 

250 M3=INT(RND (1) ж2) 

240 IF МЗ-й THEN 2=М1+М2 ELSE 2-М1-М2 

270 Х=11:Ү=3 

280 ON ‹М1У100) +1 60508 1498, 880, 770,860, 950, 1040, 1138, 1220, 1310, 1400 
290 МігМ1-(М1Ұ1002ж108 上 に 出る 数 字 の 百 の 位 を 表示 
300 Х=19:Ү=3 

310 ОМ (М1Ұ18 › +1 GOSUB 1490, 580, 770,860, 750, 1040, 1138, 1220, 13180, 1400 


7 = 


320 M1=NM1-(M1\19 ›ж1@ 上 に 出る 数 字 の 十 の 位 を 表示 
330 X=27:Y=3 
заа ON Мі +1 GOSUB 1490, 480, 770, 860, 950, 1040, 1130, 1220, 1318, 1400 


350 IF M3=9 ТНЕМ Х=3:Ү=11:6050В 1580 ELSE X=3:Y=11:GOSUB 1470 上 に 出る 数 字 の 一 の 位 を 表示 
368 Х=11:Үү=11 

370 ОМ (M2¥100)+1 GOSUB 1490, 580,770, 860,950, 1040, 1130, 1220, 1310, 1400 

380 М2-М2-(М2Ұ1002ж1і06 下 に 出る 数 字 の 百 の 位 を 表示 

390 X=19:Y=11 

400 ON (М2Ұ10 ) +1 GOSUB 1490, 580,770,840,950, 1040, 1130, 1220, 1310, 14068 


410 М2-М2-<(М2Ұ10 ›ж1@ 下 に 出る 数 字 の 十 の 位 を 表示 
420 X=27:Y=11 

аза ом мг +1 GOSUB 1490, 480,770,860,9508, 1040, 1138, 1220, 1310, 1400 
448 LOCATE 1,19 下 に 出る 数 字 の 一 の 位 を 表示 


450 PRINT STRING$ (38, "m"); 
448 LOCATE 0,S5:PRINT"8" í "1; "2"; 
478 LOCATE 9@,21:PRINT SPACE$ (39) ; 
480 LOCATE 5,21 

498 INPUT" コ クエ NN イク ウ テ バ ショ ウフ リョ K 

500 IF K=Z THEN COLOR ,4:0-0%1:6050В 1760 ELSE COLOR ,2:GOSUB185@ — 正解 な ら バ ッ ク を 特色 に 
510 PAUSE 20 不正 解 な ら バ パック を 赤色 に 
520 COLOR 7, @:МЕХТ I 

530 COLOR7,0:CLS:CSIZE 1 

540 LOCATE 0,0 

550 РЕ1МТ#@ "ШЕШШ GHQRP-X1 サン スウ キョ ウシ ツ VER 1.0 Wammm'; 
540 LOCATE 9,22 

570 PRINT#0 "ШШШ COPYRIGHT 1983. 6. BY HEART SOFT ШШШ"; 
580 LOCATE 8,18 

590 PRINT 村 @ "アナ タロ 1 9 モン チュ ウフ "30; "жу 5° キマ シタ リ 

600 IF Q=10 THEN 505081970 / 結果 発表 
418 LOCATE 8,18 

620 PRINTBR0 “Ж? IK" オペ ペン キョ ウー シマ スカ ラー て Y プ N) "; 
438 I$=INPUT$ (1) 

648 IF 1%="Ү" OR I$="y" THEN RUN 

é50 IF I$="N" OR 1%="п" THEN CLS:END 


ору 


え を 入力 する ルー チン 


GOTO өз 


а 


X,Y !PRINT" 
X, Y+1:PRINT" 
X, Y+2 :PRINT" 
X, Y+3: PRINT" 
X, Y+4 :PRINT" 
х, Y+S:PRINT" 
X, ҮзФІРКІМТ" 


X Y “РБІМТ" 
X, Y+1:PRINT" 
X, Y+2:PRINT" 
X, Y+3: PRINT" 
X,Y+4: PRINT" 
X, Y+5: PRINT" 
X, Y+é:PRINT" 


Х,Ү :PRINT" 
Хх, Y+1:PRINT" 
X, Y+2:PRINT" 
X, Y+3: PRINT" 
X, Y+4:PRINT" 
X, Y+S:PRINT" 
X, Y+é:PRINT" 


X Y !:PRINT" 
X, Үзі:РБІКМТ" 
X, Y+2:PRINT" 
X, Y+3: PRINT" 
X, Y+4 :PRINT" 
X, Y+S:PRINT" 
X, Y+é:PRINT" 


Х,Ү !PRINT" 
X, Y+1: PRINT" 
X, Y+2: PRINT" 
X, Y+3: PRINT" 
X, Y+4: PRINT" 
х, Y+5:PRINT" 
X, Y+é:PRINT" 


ХҮ !PRINT" 
X, Y+1:PRINT" 
X, Y+2: PRINT" 
X, Y+3: PRINT" 
X, Y+4: PRINT" 
X, Y+5: PRINT" 
X, Y+é:PRINT" 


X,Y !PRINT" 
X, Y+1: PRINT" 
X, Y+2:PRINT" 
X, Y+3:PRINT" 
х, Y+4:PRINT" 
X) Y+S:PRINT" 
X, Y+ る IPR INT" 


X,Y IPRINT" 
X, Y+1:PRINT" 
X, Y+2: PRINT" 
X, Y+3:PRINT" 
X, Y+4:PRINT" 
X, Y+S:PRINT" 
X, Y+étPRINT" 


以下 各 数 字 及 び 音 の 出 カ ルー チン 


10. ЖЕ 


10. 算数 教室 


1400 


2000 
2018 


REH 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
RETURN 
REH 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
RETURN 
REM 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
RETURN 
REM 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
RETURN 
КЕМ セイ カイ 2 オト 

SOUND 1,6 IiSOUND 9,259 
SOUND 3,0 :SOUND 2,200 
SQUND 7, &HFC 


X,Y “РБІМТ" 
X, Y+1:PRINT" 
X, Y+2: PRINT" 
X, Y+3: PRINT" 
X, Y+4: PRINT" 
X, Y+5: PRINT" 
X, Y+é:PRINT" 


X,Y iPRINT" 
X, Y+1:PRINT" 
X; Y+2 : PRINT" 
X, Y+3: PRINT" 
X, Y+4 : PRINT" 
X, Y+5: PRINT" 
X, Y+ézPRINT" 


1414. 
нинин 
кок = = 


X,Y :PRINT" ы 
X, Үжі:РБІКМТ" 
X, Y+2:PRINT" 
X, Y+3:PRINT" 
X, Y+4: PRINT" 
X, Y+5: PRINT" 
X, Y+é:PRINT" に 


= <, < w че < < 


X Y ЕРБІМТ" ы 
X, Үжі:РБІМТ" N 
X, Y+2 : PRINT " Ы 
X, ҮЯЗ:іРКІМТ" ы 
X, Y+4 : PRINT" に 
X, Ү+5:РВІМТ" ы 
Хх, Y+é:PRINT" ы 


SOUND 8, 16:500М0 9,16 
SOUND 12, 1:SOUND 11,100 
FOR 11=@ ТО 10 N | 
SOUND 13,4:FOR 10-0 TO 98 | 

NEXT:NEXT:RETURN | 

REM いで レ ノオト / | 

SOUND 1,30 :SOUND 8,200 PAY 

SOUND 3,18 :SOUND 2,30 ШЗ? 

SQUNID 5,5 tzSQLIND 4,4@ 

SOUND 4,28 

SOUND 7, &HD8 

SQUND 8,12 

SOUND 9,16 :SOUND 10,16 

SOUND 12,30:SOUND 11,100 

SOUND 13, @:РАЏЅЕ 10 

SOUND 7,255:500М0 13,9 

RETURN 

REM セン モン セイ カイ ノオト 

TEMPO 399:MUSIC "05:03014:04012" 

MUSIC "C7DEDCO4BOSCD?r7E7D?D7r:C%C702B?BAAQ3CC:CSrCrCrO5BrBrBrBráarérárér-Gr6 
MUSIC 
RETURN 


"r7CDEDC04B3rBr05SC7G2G : CC02B タ 人 QGG : ロ 4CrCrCTCr05BTBrA タ Aa" 


オー ト デ ー タ メー カー 
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каа? оға ОШ NQ D AADMATD 
um の すす 員 に す m い NOQO 〇 て Q③① 
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һлл м А " 


Qu Jon ADU ANMEOE AO0TOTAUWNMA 
AN 0/3 «4000 «С «400008200109 


MAaTMMMOMOL DAHUNTAATD «чИ. 
(2-і СМС 200 200% -4ШІШ-0100-40000 AML 


чш чыта чоч осот шц. 1(J 
ССЦ. QO 4 Ч «чш Ш АОС) A A 


DWUDDTOTATANDNAAN 0 ATA AN 
соон» Цц. OOONN AL ошооо + 


от аач рТ ибое ЧЧ (0-ға ба 
Юч ® РН Та ТБ аҙ ӘраТарара | ТПальа |) 


+з) ОЗМ СООСУ ч ОЧ 09-4-400101.. 
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жь ат р а атан а гю `, N "s "N "> т ат ла а. 


а ааа аа шы Га ж гьа гь ааа 


ааа таалаа] 


= 


下 


ど 


な 
殖 型 
© 


ご の 


BASIC 
š 


の DATA 文 に 直す プロ グラ ム で す 。 機 械 語 の 。 ちょ っ と し た サ プ ル ー 
DATA 文 


S, 
な お 。 


まとめ た いと 


み 出 し 


тж 


ял 


ー タ を 
し て 下さ い 。 


5 


自分 を 書き 加え る 機能 を 持っ て いる 自己 増 
れ に は , KEY0, 一 を 利用 し て いま す 。 みなさ 


送 に この プロ グラ ム を 使っ て で きた 。, 


す 方 法 も 紹介 し ます の で 参考 ! 


ログ ラム は 自分 自身 で , 


>, BASIC の プロ グラ ム と いっ し ょ ! 
Ж 


便利 だ と 思い ます 。 
2 J; 


この プロ グラ ム は , X 1 の RAM 上 の 
な ど 


ん が プロ グラ ム を 作る と き の 参 考 に な る と 思い ます の て で 活用 し て 


の プロ グラ ジラ ム で す 。 


ナシ 
を ま 


( 


1。 オ ー ト デー タメ ー カ ー 


プロ グラ ム の 使用 法 


DATA 文 に し た い (先頭 の アド レス と , 最後 の アド レス を 16 進 で 打ち 
込ん で 下さ い 。 す る と , 自動 的 に 画面 に DATA が 表示 され て 読み 込ん 
で 行く の が 見 える と 思い ます 。DATA 文 を 作り 終る と ,。 OK が 出 ます 
の で , LIST を 取っ て みて 下さ い 。 60000 行か ら DATA 文 が 入っ て い 
る と 思い ます 。 なお, この DATA 文 を 元 に 戻す 方 法 で す が , た と えば 
%Н1000-“НІККЕ まで を 元 に も どす と すれ ば , 

10 FOR I=&H10 TO &H1FFF 
20 READ I$ 

3 POKE I,VAL(`&H”+I$) 

4 NEXT 1 


上 記 の よう に し て 下さ きい 。 


КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
КЕМж 

КЕМж ШШ AUTO DATA МАКЕН VER 1.0 ШЕШ 
【CJCOPYR 1GHT 1983ж 7Я 


ВЕМж FOR SHARP-X1 BY HEART SOFT 


Q0J ひ OSONー 
х 
š 
X x X x X x X 


КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
18 CONSOLE 0,25:ИІОТН 40 
28 COLOR 7:CLS 
39 INPUT"START ADDRESS"; ST 
49 INPUT"END ADDRESS";EN$ 数 値 の 入力 
50 ST=UAL ("&H" +ST を ) 
60 EN=UAL ("&H" +ЕМФ) 


79 1 м= 40000! — — K ns 85 

80 CLS:P=0 

98 PRINTIPRINT LN; "DATA "j 

108 PRINT RIGHT$("@0"+HEX$(PEEK (ST+P)),2); 

118 PRINT", "; 60000 РАТА, —, y パー ュー 
120 P=P+1:IF P<>7 THEN 180 と いう も の を 画面 に 表示 する 
130 PRINT БІОНТ%("08"%НЕХФ(РЕЕК て ST+P) ) 」2) 5 

140 LN=LN+19 ーーーーーーーーーー 行 番号 を 増やす 


159 IF ST>=EN THEN END 
168 ST=ST+8 


170 PRINT 

180 PRINT"LN="3LN5 "ST= "ST "EN= "3EN — 変数 を 保護 する 

190 PRINT:PRINT"GOTO 80" ------- 再 ス ター ト す る 行 番号 

200 PRINT СНКФ (11); 

210 КЕҮӨ,СНКФ (13) +СНЕФ (13) +CHR$ (13) —— XI (= RETURN を 3 回 押さ せる 


12 
BLACK JACK 


ННВ SHARP-Xi Black Jack VERE 1.0 ОШ 
イーラ うー! П- TOTAL 23 


РЭ = k > ТОТА 


ШШ: 


779)Ю0#7°Л» 


ШЕШ COPYRIGHT 1983.6. Bv HERRT SOFT ШЕШЕ 


トラ ンプ を 使っ た ギャ ンプ ブル ・ ゲ ー ム の 中 で は ポー カー と 並ん で 最も 
Еш АСУ 

ラス ベガ ス で は , この ゲー ム で 負け 路頭 に 迷う 人 も 数 多い そう で す が 
ここ で は いく ら 負 け て も 何 も 取 られ ませ ん 。 どう ぞ 安 心して お 遊び 下さ 


VAS 


12. BLACK JACK 
ゲー ム の 遊び 方 

この ゲー ム の 勝敗 は カー ド の 合計 が 21 に 近い 方 が 勝ち と いう ゲー ム 

で す 。21 を オー バー する と 無 条件 で 負け て し まい ます 。 絵 札 は 10 と 数 

えて エー ス は 1 また は 11 と 自分 の 都合 の 良い 方 に 数 を る こと が で き 

ます 。 カー ド を 1 枚 見 た と ころ で , その 回 の か け 人 金 を 決め ます 。 2% 

目 の カ ー ド を 見 た 後 5 枚 ま で 追加 の カー ド を , も ら う こと が で きま す 。 

親 は 16 以上 に な る まで , カー ド を ひき ます 。 あな た の カー ド の 合計 と 

親 の カー ド の 合計 が 同じ 場合 は 引き 分 け と な り ま す 。10,000 円 以上 も う 5 


ける と , 親 が 破産 し て し まい ます 。 も ち 金 が 0 に な れ ば あな た の 破産 
で す 。 


高 得 点 の 取り 方 


この プロ グラ ム で は 1 枚 目 の カ ー ド を 見 た と ころ で , か け 金 を 決め 
られ る の で , 1 枚 目 が 絵 札 な どの 有利 な カー ド の と まき は 沢山 の か け 金 を 
逆 に 。 2 一 3 な どの 不利 な カー ド の と き は 拉 目 に か け ま し ょ う 。 

また 親 の カー ド が А な どの 場合 も そう で す 。 親 は 16 未満 だ と 必ず 
引い て くる の で ,。21 を オー バー し そう な と き で も チャ ンス で す 。 

以上 の こと を 守り 慎重 に 賭け れ ば 必ず 勝て る で し ょ 5. 


改造 へ の ワン ポイ ント ・ ア ドバイ ス 
親 ・ 子 共 5 枚 ま で し か 札 が 表示 され ませ ん 。 これ も 画面 上 の 問題 な 
の で す が , 札 を 重ね 合わ せる な ど し て , も っ と 多く 札 を 出す 方 法 も あり 
ます 。 


変 数 


X(n ) つ 親 の カー ド の 数 T 1 つ 親 の トー タル L っ つっ カード の 枚数 
Z(n) 人 っ 親 の カー ド の マー ク T 2 っ 子 の トー タル Q=> 持 ち 金 
Y(n) っ 3 の カー ド の 数 I っ ルー プ 用 (時 間 待 ち ) 


W(n ) つ 3 の カー ド の マー ク 
F(n, n) 一 同じ カー ド が 出 な いた め の 配 列 


A$,B$ つ カー ド プ リン トル ー チ ン で の マー ク , 数 値 


12. BLACK JACK 


親 の 1 枚 目 を 
ふせ て 表示 


12. BLACK JACK 


1 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
2 КЕМж ж 
З КЕМж ШЕШЕ БАСК JACK UER 1.0 ШЫҒЫ > 
4 ВЕМж ж 
5 ВЕМж [CJ COPYRIGHT 1983ж 7 月 x 
6 КЕМж ж 
7 ВЕМж FOR SHARP-X1 BY HEART SOFT x 
8 REMX 

9 БКЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
19 ОІМ Х<52,Ү<52,2<52) (S>, F (S, 13) 

20 Q=100 

30 FOR Ісі TO 4:FOR J=1 TO із ЖӨИ ОЯЛАМ ЕЗ 2 


40 ЕІ, J>=@:NEXT J:NEXT І 

50 T1=0:E=0 

ва CLS:LOCATE 0, 0: СО_ОК7:РКІМТ" ШИШ SHARP-X1 Black Jack VER 1.60 и タイ トル 表示 
78 LOCATE 0, 24:РБІМТ"ШШШ COPYRIGHT 1783.4. BY HEART SOFT ШЕШ" 

89 LOCATE 0,2:COLOR る IPRINT" リ テ ド イー ラー ノ カー トド リョ 


90 A$=" ":В%=" ":С=2 

199 り =3:GOSUB 1380 ーー 親 の 1 枚 目 を ふせ て 表示 する 

110 FOR 1=1 TO 5 

120 2 (1) =ІМТ (ЕМО (154)+1: ゴ = ミア (1) 一 一 マーク š ы ' 
130 ХІ) =1МТ ЕМО (1) ж13) +1:К=Х (1) 数 字 親 の カー ド を 5 枚 分 決め て お く 


148 IF ЕЈ, К) =-1 THEN 150 

150 F (J К) =-1:МЕХТ І 

1 る 9 IF X(2)=1 THEN GOSUB 10706 
178 Ті=Тт1+Х (2) :А=2 
188 いり =3:GOSUB 1156 
190 Т2=0:0=0 

200 LOCATE 0, 11:COLOR 6:PRINT" ア ナタ ノ カー トド " 


А の 処理 


親 の カー ド を 表示 する 


218 А%-" ":В%=" ":С=6:0=12:60508 1380 子 の 1 枚 目 を ふせ て 表示 する 
228 FOR 1=1 TO 5 

230 ҮІ) =1МТ (ЕМО 1) жа) +15J=Y СІ) — 7-7? 

248 ИІ) =1МТ (ЕМО 1) ж13) +1:К= СІ) — 数 字 子 の カー ド を 5 枚 分 決め て お く 


250 IF F(JyK)=-1 THEN 230 
268 F (J, K)=-1:NEXT І 


270 IF И(2) =1 THEN GOSUB 1110 ——— А の 処理 
280 T2=T2+l(2)5:B=2 
298 U=12:GOSUB 1200 ーーーーー 子 の カー ド を 表示 する 


зей COLOR 7 

319 LOCATE 9,29:PRINT SPACE*(39); 

328 LOCATE 5,20іРБКІМТ"%";0; "モッ テイ マス " 

330 PAUSE 10 Q À 5 
340 LOCATE 2@,2@:РЕ1МТ ЅРАСЕФ (20) ; Š 
358 LOCATE 20,20:INPUT"/?5hy2?2n ";H 

360 М=ІМТ (M> ç 
370 IF (9<М) + (М<1) THEN 34868 持 金 より 大 きか っ た り , 1 より 小さ けれ は ば は やり直し 
З88 IF Ы‹1›=1 THEN GOSUB 1110 — A の 処理 

390 Т2=Тт2+0(1) :В=1 

488 り =12:GOSUB 1200 

418 В=2 

428 LOCATE 9@,29:PRINT ЅРАСЕФ (39) ; 

438 LOCATE 10,21:С01 08 7:РКІМТ"Ж7217/6#227 て YZN) "; 

448 С%= ІМРОТФ (1) も う 1151427 

450 IF C ま も ="n" OR СФ= "М" THEN 616 Жез Ы 

460 IF СФ-"у" OR СФ="Ү" ТНЕМ 480 

478 GOTO 4280 

488 В=В+1:0=0 

498 IF B>5 THEN B=5:GOTO 616 

588 IF MICB〉=1 THEN GOSUB 111@ ——— A が 入っ て いた と き の 処 理 

510 T2=T2+H (B) 

528 IF Т2<-21 THEN 590 

530 FOR Ізі ТОВ 

540 IF WI)=1 THEN N(I)=0:T2=T2-10:GOTO 590 

550 NEXT I 

5408 GOSUB 1200 

570 IF T2<22 THEN 430 

580 GOTO 910 

590 60508 1200 

688 бото 430 

610 IF Х(1) =1 THEN 60508 10768 

628 Ті=Т1+Х (1) :А=1 

る 39 VU=3:GOSUB 1150 

648 А=2 


IF Ті<18 THEN 79@ ーー 親 の カー ド が 16 末 満 の と き は も う 1 枚 
IF Т1<72 THEN 850 一 ーーーーーーーーー あな た の 勝ち 

IF Ti1>T2 THEN ゥ 1@ ーー ディー ラー の 勝ち 

LOCATE 0,21:PRINT ЅРАСЕФ (39) ; 


LOCATE 10,21:С0108 3:PRINT" ヒ キワ ウケ テス 。 "5 PAUSE 20:60т0 940 引き 分 け 
PAUSE 19 

A=A+1:E=0 

IF А›5 THEN 830 

IF X<XA)=1 THEN GOSUB 197@ 

T1=T1+XXA):IF T1<22 ТНЕМ 810 

FOR I=1 TO À 

IF X(I)=1 THEN X(I)=0:T1=T1-10:GOTO 810 

NEXT I 

GOSUB 1150 

IF Т1<22 THEN é50 

GOTO 850 

GOSUB 1158 

GOTO 650 

IF B= る THEN Q=Q+2M:GOTO 910 

IF В=5 THEN Q=Q+MIGOTQ ?10 

IF Т2-21 THEN Q=Q+N 

LOCATE @,21:PRINT ЅРАСЕФ (39) ; 

Q=Q+M:LOCATE180,21:COLOR 4:РВІМТ "アナ タ ノ カ チ テテ" д» " } あな た の 勝ち 
TEMPO 1250 

MUS IC "L 15056BFEGBFEGBFEG6 :E04A05DCE04A05DCE046A05DCDD " 
GOTO 940 

LOCATE 0,21:PRINT ЅРАСЕФ (39) ; 5222 
О-0-М:10САТЕ10,21:С010Ж 2:РБІМТ">4-5-27%5%2. 3 ディ ー ラ ー の 勝ち 
MUSIC "L1504FEFDEDC" 

IF 0<1 THEN 990 

IF Q<1989@ THEN 30 

LOCATE 10,20:COLOR 2:РЕІМТ "7" «-5-№ ñ925 2, " 


LOCATE 10,21:COLOR 7:PRINT" Give Up!! Ы ディ ー ラ ー の 破産 
GOTO 1929 
REM 

LOCATE 10,20:COLOR 2:PRINT" Уға (922528 " あな た の 破産 
LOCATE 19,21:COLOR 7:PRINT" бате uer Ы 

LOCATE 10,22:COLOR 7:PRINT" モ 21 ト " ヤ リマ スカ てく Y/N) "; 

I を $=INPUT 和 まく 12 キー 入力 

IF 1%-"у" OR 1%-"Ү" THEN RUN 

IF ІФ="п" OR I$="N" THEN CLS:END 

бото 18030 

REM 

T1=T1+18 

IF T1528 THEN Ті-Т1-10:Е--1 

RETURN 

REH A の 処理 ルー チン 


1120 Т2=Т2+1@ 


IF Т2›2@ THEN T2=T2-10:D=-1 

RETURN 

REM 

X1=X (6) :21=2 (6) 

IF Е=-1 ТНЕМ ХА) =@ 親 の カー ド を 表示 する ルー チン 
IF Х1218 THEN T1=T1+10-X1 

С«4жа :Т3-Т1:60Т0 12568 


1200 КЕМ 


X1=W(B):Zi1=Y (ВО 


1220 IF D=-1 THEN МВ) = 子 の カー ド を 表示 する ルー チン 


IF Х1>1@ THEN T2=T2+10-X1 


1240 С=&жВ :T3=T2 


REM 

IF X1=1 THEN ВФ-"А":00Т0 1320 

IF X1=10 THEN B*$="X":GOTO 1320 

IF X1=11 THEN B*$*="J":GOTO 1320 絵 札 用 判定 ルー チン 
IF X1=12 THEN ВФ-"0":60Т0 1320 

IF X1=13 THEN В%«"К":60Т0 1320 

АФ= "0 ":ВФ=СНЕФ (АБС (АФ) +Х1› 

IF 21=1 THEN АФ="Ф":Н=1:60Тт0 1340 

IF 21=2 THEN АФ= "ф":Н=2:60т0 1360 マー ク を 決め る ルー チン 
IF 21=3 THEN ñA$="@":H=2:GOTO 13660 

ñA$="#"iH=1 

LOCATE 20,U-1:COLOR S:PRINT"TOTAL " ; ТЗ 

COLOR H:PRINT CHR$%(7); 


12. BLACK JACK 


12. BLACK JACK 


1380 REM 

1390 CSIZE 3 

1400 LOCATE С,У :РКІМТ #@,"— " 

1410 LOCATE C,U+2:PRINT #0, "| "АФ" 1" カー ド 表示 用 サブ ルー チン 
1428 LOCATE C,U+4:PRINT #0, "| "ВФ" 1" 

1430 LOCATE C,U+é:PRINT #0, " — ' 

1440 СЅІЈЕ Ө 

1458 RETURN 


ШЕШЕН ЅНАРР-Хі Black Jack VE 
y" í(-5- J 7-і TƏTñL 16 


з) カー TOTAL 21 


PS б Ык" 


ШЕШ COPYRIGHT 12  . こ . Bv HERRT SOFT ШЕШ 


挑戦 者 の 勝ち ./ 


— 62 – 


У 
— 
р ж 
79 


шыоугон>ш (г) 
5 
ЛІ! к: 
m m m= 
+O 


% 


- (の で ты (の (の (の (の ч 
(“ 


“ 
% 
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1 
6 
9 
1 
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? _ 
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モ 
РЕ 


数 年 前 SHARP か ら 電 子 翻訳 機 が 登場 し た と き は 非常 に 驚い て し ま 
いま し た 。 何と 言っ て も 電卓 ほど の 大 きる さ の も の に 辞書 が 入っ て し まっ 
た の で すか ら , それ 以来 文章 の 訳せ る も の 海外 旅行 用 の も の な ども 登場 
し 。 つい 明 近 に を る よ 。 と うと よう "ウォ ー キ メグ ゲ ・ デ ィ み ジョ ナチ リー" 
な を など と いっ て , 時 計 の 中 へ 入っ て し まい まし た 。 わ が X 1 も コン ピュ ー 
ター の 端くれ , “電卓 も どき な ど や , 時 計 に で き て コン ピュ ー タ ー に で き 
な いこ と は な い ” と 意気 込ん で 作っ た の が この 電 訳 機 も どき で す 。 

し か し 作者 の 力 不 足 で まとも に 訳し て くれ ませ ん 。 た と えば 「This 
is а pen.」 を 入力 する と 「 これ, です, 19, ペン 」 と 訳し て し まい ま 
+. これ は 名 詞 。 動詞 な どの 区 別 を し て いな いた めで , の ち に バー ジョ 
ン ア ッ プ する こと が で きる よう に C$(n ) に 判定 用 の デー タ を 入れ て お 
きま し た 。 自信 の ある 人 は た めし て みて 下さ い 。 

単語 を 増し た い 人 は (n) の 値 を 増やし て 下さ い 。 これ は 単語 の 数 で 


す 。 


13. 自動 簡易 翻訳 機 


プロ グラ ム の 使用 方 法 


з を なお, 文章 


訳す と き は その まま , 文章 を 訳す と き は 最後 に 必ず . (ピリ オ 
し て 下さ い 。 そう で な いと 文 全体 が 単語 と し て 出 て し まい ま 
の 初め を 大 文字 に する 必要 は あり ませ ん 。 


А $(n ) 単語 

В $(n ) > 

C $(n ) = 判定 用 

W$ つ 訳し た 文字 例 

P 単語 デー タ の 数 

F $(n) っ アル ファ ベッ ト の 順 

L 一 入力 し た 文字 例 の 長き 

X $… 翻 訳す る 文字 列 

S P( n ) 一 文章 を 単語 に くぎ る と き に 使用 
I っ FOR 文 て 使用 


2 PPLE 


422 


9:12: Фф% 


2 BASEBRLL 
ы 522 


2 200 


ФАБ 9212: Фе 


? СОРУ 


ФАЉ 9:1: Фде 
? PICTURE 
эмм 921: Ф422 


2 DRINK 
ФАФ 5.3" 


2 ров 
922° 


? а 


13. 自動 簡易 翻訳 機 


自動 簡易 翻訳 機 ・ フ ロー チャ ー ト 


START 


デー タ の 読み 込み 


分 けた 数 を 表示 


次 の 単語 に 
ポイ ンタ セッ ト 


13. 自動 簡易 翻訳 機 


1 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
2 КЕМж ж 
З КЕМж ШШШ 272: s" sa ЄК # VER 1.0 ШЕН ж 
4 КЕМж ж 
5 КЕМж [CJ COPYRIGHT 1983ж 7 月 ж 
é ҺЕМж ж 
7 КЕМж FOR SHARP-X1 BY HEART SOFT x 
8 КЕМж ж 
の КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


18 СОМЅО Е 0,25:ИІОТН 480 


COLOR 7,0:С(5 
РКІМТ"ШШШ SHQARP-X1 7779 シシ ョ モト "を VER 1.0 ШШ; 


40 LOCATE 0,23 


PRINT" COPYRIGHT 1983.7. BY HEART SOFT ШЕШ"; 


55 PAUSE 19#CLS 


LOCATE 0,3 


DIM 4%Х(50),В%<50),С%<5608), D$ (50), E$ (S0), F$ (50), G (50), SP (50) 
0=39:ҒОК 1=1 TO 26 

READ F$(I):NEXT I 

DATA я,В,С,б,Е,Ғ,б,Н,1,.7,К,1,М,М,0,Р,0,К,5,7,//,У, И, X, Y, Z 
REM 

FOR I=1 TO Q 

READ А®%‹(1›),8В%С1›),С%‹(1›) 単語 の デー タ を 読み 込む 
IF ЕРТФ (АФ (1), 1)=F%$(J) THEN G (J)>=G (Ј) +1:60Т0 190 

J=J+1 

NEXT I:J=0 

REM 

INPUT ХФ: = ЕМ (X$) 

REM 

IF RIGHT$ (X$, 1)=". " THEN РЕ1МТ"ФФФ о-ууз? ФФФ":СсОТО 280 

FOR JF=1 TO 26 

IF RIGHT$ (X$, 1) =F$ (JF) THEN РКІМТ"ФФ% 2227: ФФ%":И%-Хх%:С5050В 420:GOTO 280 
NEXT JF 

PR INT "ニュ ウリ ョ ク ミス "`Z, ":GOSUB 500:GOTO 200 

REM 

FOR I=1 TO L 

M$=MID$(X$, I, 1> 

IF M$=" " ТНЕМ IS=IS+1:SP (15) =1:ВЕЕР:РКІМТ"ФФф SP ("IS")="SP (15) " ФФФ" 

IF МФк"." ТНЕМ 15=15+1:5Р (15) =1:РРІМТ"ФФФ SP ("IS")="SP (1IS):GOTO 340 

NEXT 1 

REM 

FOR I=0 TO IS-1 

81=8Р (1+1) -$Р (1) -1 

PR INT SP(1)+1" モ シド アメ カラ "381" モ シリ 文章 を 単語 に 分 割 す る ルー チン 
W$=MID$ (X$, SP (1) +1,51) 

PRINT" "ИФ" ----- “4 

GOSUB 420:NEXT I:GOSUB 500 

бото 200 

REH 

FOR 1А=1 TO Q 

IF ИФ=А% (1А) THEN 480 

NEXT ІА шік БЕРІ 

PR INT" テ * ー タ カ ^ アリ マセ ン 。" 単語 を 検索 する ルー チン 
RETURN 

PRINT TAB (20) ; ВФ (ІА) 

RETURN 

REM 

FOR 11=1 TO Q:SP (II)=@:NEXT ІІ 


15=0 トッ フ 9 クリ アー 


бата A, 1, №, АМ, 7° 7А, У, BOY, ショ ウネ ン 。 М, 006, Xx) №, CITY, 7%, №, HE, カレ N 

DATA І, 735, №, 15,3“ 7А, Ч, THIS, 2/, М, Ү00, アナ クタ, N 

DATA AGO, ムカ ショ М, AIR, 77+, М, 人 LONG ょ ソ ッ テ チュ Ч, ARE, テー アル 。 Ú, MAS, テー アッ ク 。 Ú 単語 の デー タ 
DATA ЧЕКҮ, ҺЕ, №, КІМО, シン セツ Ny UNDERSTAND 」 リ カイ) N 

рата HAVE, モツ , Ú, DO, 24, У, PLAY, ?/27,У, BALL Ж”-А, М, BASEBALL , ヤキ ュ ウ 。 N 

DATA BOOK, ホン, №, PICTURE, シャシン) М, PEN, 4%2) М, ИІМООИ, тк“, №, KICK, 7А, ソ 

DATA COPY, フク シャ 。 У, LOOK, ай, У, МАМТ, жәл, Ú, CRY, 972%, У, DRINK, 2, Ç 

DATA 200, №“ 27° 712, №, АРРІЕ, 22°, №, МЕКЕ, 7727, Ч, ORANGE, ミカ ン ) N 

DATA РЕТ, 745“ Zk” 27“ 7, М, СО5МО5, зот, N 


14 | | 
ベジ タプ ブル くす し 


Хі 579%927% フス "ラッ ЧЕ; 1.6 шш 
B LEFT= 5 


アマ イマ ヤマ ヤマ ヤマ ヤマ ヤマ マヤ マヤ マヤ ママ ヤマ ヤマ マヤ マヤ ママ ママ マヤ ママ ママ ママ ママ ママ 〒 マ マミ 


©©© 
ШЕ [C]COPYRIGHT 1983.7 BY HEART SOFT ШЕ 


以前 イン ベー ダー ゲー ム が か が 出現 する 前 の テー ブル ゲー ム の 主役 は プ 
ロッ ク く くずし "で し た 。 私 も , か な り 熱 中 し て 財布 を 軽く し た も の で す 。 
そこ で 短 み の ゲー ム を X 1 で 作ろ うと し た の で す が , その まま で は 面白 
く あ り ま せん の で , そこ で ,。 プ ブロック は 色々 な キャ ラク ター に 作っ て み 


まし た 。 一 番 下 か ら ,。 オレ ンジ 。 ショ ー ト ケー キ 。 チェ リー。 バ ナナ, 
え オ カ 。 ナシ で す (—#T 2 F< F, 一 鼻 上 は グレ ー プ フル ー ツ に 見 え 
2, と いう 意見 も ある の で す が ………… )。 こ の デー タ は 本 書 の キャ ラク タ 


ー メ ー カ ー で 作り まし た の で , 好き な よう に 変更 し て みて 下さ い 。 


14. ベジ タブ プル くず し 


ゲー ム の 遊び 方 


ルー ル は ,。 ブロ ッ ク く ず し と 同じ で す の て 簡単 で す 。 一 応 知 ら な い 人 
の た め に 説明 し ます と , ラケット を 左 太 に うま く 動 か し, ボー ル を 跳ね 
返し て デブ セッ 次 を し て いく と ゆい う も の で す 。 ТУЕШ, 4, 6 
キー で 左右 に 移動 きせ ます 。 ボー ル は 全部 で 5 ヶ あ り ま す 。 ラケット は 
ボー ル よ り 速 く 移 動 す る よう に な っ て ます の で , あわ て な い の が 高 得点 


変数 表 


X, Үэж- лох, Y 座標 

XX, YY っ ラボ ー ル の 進行 方 向 

I $ っ キー 入力 (INKEY$ で 使用 ) 
Р $ つ 画面 読み 取り 

ST っ キー 入力 (STICK 文 で 使用 ) 
2Zー ラ ケッ ト の XX 座標 

M つ 残り の ボー ル 数 


I ユル ー プ 用 


ШЕ [C]JCOPYR1IGHT 1983.7 Bv HERRT SOFT ШЕ 


14. ベジ タブ ル く ず し 


ベジ タブ ル く ず し ・ フ ロー チャ ー ト 


ボー ル の 行き 先 の 
位置 確認 


反射 させ る 


進行 方 向 を 
ラン ダム に セッ ト 


14. ベジ タブ プル くず し 


1 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
2 ВЕМж ж 
3 КЕМж ШЕН 525-22-01 22" ШЕШ ж 
4 КЕМж ж 
5 КЕМж ІСІСоругіоҺ% 1983ж 7 月 ж 
6 КЕМж ж 
7 КЕМж FOR SHQRP-X1 Ву Heart Soft x 
8 КЕМж ж 
% ВЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


28 CLSiCLICK OFF:COLOR 7:ТІМЕ-йб 有期 設定 

30 КАМООМІ2Е : Хх=- 1: ҮҮ=-1:2=13:М=5 

48 LOCATE 60,0 

50 РВІМЧТ" ШШШ SHARP-X1 ペー シド ラフ 上 ル クス バシ UER 1.0 ШШШ; a 

60 LOCATE @,24 画面 出力 
78 PRINT" [CJCOPYRIGHT 1983.7 BY HEART SOFT ШШ"; 

89 LOCATE 5,1:PRINT "POINT= @"; 

ға LOCATE 25,1:РБІМТ "LEFT= 5"; 


10 CONSOLE 0,25:ИМІОТН 498:GOSUB ишт Ан 
* 


108 COLOR5 
118 1_ІМЕ ‹0, 22) - (0,2), "#" 
120 LINE - (39,2), "Wg" 枠 を 作る 


130 LINE - (39,22), "WR" 

140 LINE (1, 22) - (1,2), "ж" 
150 LINE (38, 22) - (38,2), "#" 
168 COLOR 7 


178 GOSUB 430 —sa rara 

180 XX=-1:YY=-1 

190 X=INT(RND (1) ж35) +2 | ボー ル の 出る と ころ を 決め る 
200 Y=INT(XRND (1)*x10) += 

218 IF CHARACTER$ (X, У) <>" " THEN 190 も し スペ ー ス で な けれ ば や り 直 し 


228 CGEN1:LOCATE X,Y:PRINT#0 "Ə";:CGEN 0 
230 CGEN 1:10САТЕ 2, 22: РЕІМТ" ШШ" ; :ССЕМ 9 
248 FOR 1=1 ТО 10:ВЕЕР:МЕХТ 1 

250 PAUSE 1 

268 LOCATE Х, Ү:РБІМТ" "j 

278 P$=CHARACTER$ (Х+ХХ, Y+YY) 

280 IF РФ-"Ш" THEN YY=-YY ーー ラケット に 当っ た 場合 
290 IF РФ-"Ж" AND X=2 OR X=37 THEN XX=-XX 

300 IF Р%="Щ" AND Y=3 THEN YY=-YY 壁 に 当っ た 場合 


310 IF РФ<СНК%(230) AND РФУСНЕФ (224) THEN GOSUB 498-- ベジタブル に 当っ た 場合 
320 X=X+XX:Y=Y+YY 

330 IF Y>22 THEN 58а ーーーーーーーーーーー- ボー ル を 取り そこ ね た と き 

340 CGEN 1:LOCATE X,Y:PRINT#0 "Ә";:ССбЕМ ローー ボー ル を 表示 


350 ST=STICK(0):IF ST=g@ THEN 258 

36@ LOCATE 2, 22:РКІМТ" “; 

370 IF ST=4 THEN 2=2-1.5 

З6@ IF ST=é THEN 2=2+1. 5 ラケット を 動か す 
390 IF 2<2 ТНЕМ Z=2 

400 IF 25235 ТНЕМ 2-35 

410 CGEN 1:LOCATE 2, 22:РЕІМТ" Ш"; :ССЕМ 60 

428 60Т0 250 


438 REM 

440 FOR 1=@ TO 5 

450 LUCATE 2,5+I:CGEN 1 ғ | А 
460 РВ1МТ#@ ЅТВІМОФ (34, СНЕФ (224+1)) ベジ タプ ブル を 表示 する 
478 NEXT IiCGEN 0 

480 RETURN 

490 REM 


500 PO=PO+1:BEEP 

510 LOCATE X+XX, Ү+ҮҮ:РКІМТ" "j 

520 LOCATE 11,1:PRINT РО; 

530 XX=INT (RND (1) ж2) ポー ル が ベジ タブ ル に 当っ た と き 
540 IF XX=@ THEN XX=1 ELSE XX=-1 

550 YY=INT (RND (1) ж2) 

569 IF ҮҮ=й THEN YY=1 ELSE XX=-1 

570 RETURN J 

580 REM 

59а GOSUB 820 

600 NM=M-1:LOCATE 38, 1:PRINTM; 

618 IF М<>8 ТНЕМ 1880 も し ボー ル が あれ は ば メイ ン へ 
620 LINE (0, 15)-(39,21)," ",BF 

630 LOCATE 8,16 

640 PRINT" GAME OVER !! 

6508 PRINT 


14. ベジ タブ ル 〈 く ず し 


668 PRINT" же дом "IPO; "テン 2599.” fs 

670 PRINT 

688 PRINT" モウ 1 トド アソ ヒ "マス カ ? (YZN) "j 

690 I$=INPUT$(1) 

788 IF 1%-"Ү" OR I$="y" THEN RUN | Ж 
710 IF 1%="М" OR I$="n" THEN CLS:END ベンダ マッ ルン の データ 


728 бото 698 

730 DEF СНБВ%(228) =HEXCHR ま まく " 9999999FFFFFFg9") +НЕХСНКФ ("00 1938FFFF aAFFFF "> +HEXCHR 
*("@C0800FFFFFFFFFF") 

748 DEF СНЕФ (224) =НЕХСНЕФ ("00000000000000008")+HEXCHR* ("08086 060F 0870783C1E ") +HEXCHR 
も ("E9E@E@F@79783C1E"> 

750 DEF CHR*%(227)=HEXCHR%("0000000000000000")+HEXCHR$ ‹"0000000387С7С38") +HEXCHR 
$*$("0C10101000000000") 

760 DEF CHR$(224)=HEXCHR%("0000000000000000")+HEXCHR$ ("@@2С7ЕЕЕЕЕЕЕ7ЕЗС"› +НЕХСНЕ 
も ("183C7EFFFFFF7E3C") 

770 DEF CHR% (229) =HEXCHR%(" 0@00800000000000008")+HEXCHR$ (" 0082C7EFFFFFF7E3C "> +HEXCHR 
も ("1819999999999999") 

780 DEF CHR%(225)=HEXCHR%$("00000000000000008")+HEXCHR$ ("8080087E7E7E3C 0000") +НЕХСНЕ 
%("8080818181423Сс08";) 

790 DEF СНЕФ‹ 642 =НЕХСНКФ ("3838107С10102844") +НЕХСНЕФ ("3838107С10102844"› +HEXCHR 
+ ("3838107C10102844") 

800 DEF СНЕФ (135) =НЕХСНЕФ ("3С428 1458 197423С") +НЕХСНКФ ("3С428 1458 199423") +НЕХСНЕ 
%("3С4281458199423С"> 

818 RETURN 

820 SOUND 7, 28:500М0 1, @:500МО 3,0 

830 FOR 1=15 TO 8 STEP -1 

848 SOUND 9,255-Ix る SOUND 2,2@4-1ж4:5$О00МО 8, I:SOUND 9,1 

858 SOUND 10,1⁄1.5:S0UND 6,368-І 

860 PAUSE 1 

870 NEXT I 

880 RETURN 


292" 727» ЧЕН 1.0 ш 
LEFT= 6 


Ф 0 6 000 0000000 000 0 @ @ 6 
+ от от о ОО т UY VY ттт т т 


é é е e ез» ++ 


& & & 
44... = Ф Ф 


GRME OVER !! 
24(9%л 65 テッ 77у9. 
ЕОАЮ” 了 リ ヒ ~ マス 2 (У/МОШ 
(52,2) == 
[ C]JCOPYRIGHT 1983.7 BY HERRT SOFT ШЕ 


得点 65 で ゲー ム 終 了 


ШЕ [C]COPYRIGHT 1983.7 BY HEART SOFT ШЕ 


この ゲー ム は 最後 まで 、 な ん と いう 名 前 を つけ よう か 悩ん だ ゲー ム で 
す 。 先 に ゲー ム の 構想 が で き て し まう と いう の は , 私 と し て は , 珍し い 
пее абас ыы そこ で , 色々 と ゲー ム 名 を 募集 し た と ころ , Жа 
ピー ライ ター で ある 上 岡 君 の 『 ま る で ナメ クジ の よう だ 」』 と の 意見 が 出 
іи, この ゲー ム の 名 前 が ナメクジ ゲー ム と 決ま っ た と いう 次 第 で す 。, 
な る ほど “Ш” の 通っ た 後 が が あの ナメ クジ が , は い ず り 回 っ た 後に 良 


く 似 て いる と いえ な いで も あり ませ ん 


= = 


15. ナメ クジ ゲー ム 


ゲー ム の 遊び 方 
あな た は `B の ナメ クジ を 操っ て 壁 に ,。 ぶつ か ら な いよ うに し て 。, 
いく つの エサ を 食べ る こと が で きる か / と いう の が , この ゲー ム の ス 


ト マデ リ ー で す 。 


ラン ク は 9 コー ス あ り , 数 字 が 小さ い ほ ど ナ メ ク ジ の 進む スピ ー ド が 


> 下 、 4-Ж, 6—#, 


速く な り ま す 。 ナメクジ の 操作 は , テン キー, 2 
8— E, で す 。 まず, 最 下 部 か ら ス ター ト し て エサ を 食べ な が ら , 最上 
部 の 穴 か ら 出 ま す 。 壁 に は 。 3 つの 穴 が あり ます の で , 一 回 上 に 昇っ て 

こと も 可能 で す 。 パー 


か ら ま た 下 へ 降り ,. そし て また 上 に 昇る 。 と いう こと 


フェ クト を 目ざし て 頑張 っ て 下さ い 。 


変数 表 


І $ー キ ー 入 力 用 (INPUT $) PO っ ポイ ント 


QED ST っ キー 入力 用 (STICK Ж) 


X, Y ラ キャ ラク ター 表示 の X, Y 座 標 I, J> — ZH 


XX, YY つ 進 行方 向 用 の デー タ 


ШЕ [C]COPYRIGHT 1983.7 BY HERRT SOFT ШЕ 


15. ナメ クジ ゲー ム 


ナメ クジ ゲー ム ・ フ ロー チャ ー ト 


мочол ьш № 


15. ナメ クジ ゲー ム 


КЕМЖ ШШШ 2/2;" y" -¿ VER 1.0 ШШШ 
КЕМж ІСІСоругіоһі 1983# 7Я 
КЕМж РОВ SHARP-X1 Ву Heart Soft 


КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

CONSOLE ё, 25:иІрТН 40 

CLSICLICK OFFiCOLOR 7,0 

RANDOMIZE : TIME =9 

CLS:LOCATE 10,15 

PR INT "アナ タ ノ レベ で ル ñ ? (1-9) "; 

ІФ=ІМРОТФ (1) レベ ル の 入力 1 一 9 まで 

IF 1%<"1" OR 1%>"9" THEN る @ 

Q =VAL (ІФ) 

CLS:COLOR 7:LOCATE 0,60 
0 РКІМТ" ШШШ SHARP-X1 2⁄2>" Yy"`-¿ VER 1.0 Wm"; ғ. 
@ LOCATE 0,24 画面 表示 
9 PRINT" [C〕JCOPYR 1IGHT 1983.7 BY HEART SOFT @Ш"; 
9 LOCATE 5, 1:PRINT"POINT= ө" 
8 LOCATE 25, 1:PRINT"TIME= @" 
9 COLOR 5 
8 (ІМЕ(0,22-(39,222, "ЕВ ーーー 枠 を 表示 する 
9 FOR I=1 TO 3 
9 LINE ‹0, 1ж5+2) – (39, 1ж5+2), "Ж" 
9 NEXT І 


8 COLOR 4 

8 FOR Ізі TO 50 š 

8 X=INT(RND て (1) ж39) 

9 Y=INTCRND (1) ж20) +2 途中 に 壁 を 50 個 表示 させ る 

@ IF CHARACTER$ (X, Ү2<>" " ТНЕМ 220 も し スペ ー ス で な けれ ば や り 直 し 


9 LOCATE Х,Ү:РЕ1МТ"@"; 

9 NEXT I 

8 CFLASH 1:COLOR 2 

8 FOR 1=9 TO 3:FOR J=0 TO 2 

8 X=INT(RND (1) ж30) +5 

9 Y=INT(RND (123) +SxI+3 

9 IF СНАКАСТЕН%<ХхХ, Ү2<>" " ТНЕМ 290 
8 LOCATE X,Y:PRINT"@"; 

@ NEXT J:NEXT I 


ポイ ント を 出力 する 


8 Х=ІМТ (ЕМО 1) ж30) +5 
8 LOCATE X, 1ж5+2:РРІМТ" "j 

@ NEXT Ј:МЕХТ І 

@ Х=ІМТ (ЕМО 1) ж30) +5 

8 Y=21:COLOR 4 

8 IF CHARACTER$(X,Y)<>" " THEN 390 
8 LOCATE Х,Ү:РЕ1МТ"Ш"; 

8 BEEPiPAUSE 30: ТЕМРО 406 

8 5Т=5ТІСК (0) iPLAY "04858 :04Е56" 

8 IF ST=2 THEN ХХ=@:ҮҮ=1 

8 IF ST=6 THEN XX=1iYY=@ 

8 IF ST=8 THEN XX=9:YY=-1 

8 IF ST=4 THEN XX=-1:YY=0 

8 P$=CHARACTER$ (X+XX, Y+YY) 

6 IF РФ-"Ш" OR P$="@" THEN 650 — nT 自分 か 壁 に 当っ た ら 負 け 
8 IF РФ-"Ө" THEN GOSUB 5780 — Y ポイ ント を 取っ た と き 

@ IF Y+YY=1 THEN 780 

8 X=X+XX:Y=Y+YY:COLOR 6 

0 LOCATE Х, Ү:РЕІМТ "Ш"; 

@ PAUSE Ож. 5:6050В 616 ーーーーーーー ラ ンク に 応じ し て の 時 間 待 ち 
8 вото 440 

0 REM 

8 BEEP:PO=PO+1:COLOR 7 

8 LOCATE 12, 1:РВІМТ РО; ポイ ント の 出力 

8 RETURN 

0 REM 

@ COLOR 7 

8 LOCATE 31, 1:PRINT TIME 時 間 の 出力 

8 RETURN 


KEY 入力 STICK 文 を 使用 し て る の て 


9 CFLASH 9 
9 FOR I=0 TO 3iFOR J=0 TO 2 | 


(1) で ジョ イス ティ ッ ク に な る 


15. ナメ クジ ゲー ム 


る 59 КЕМ 

668 FOR 1=9 TO 10:ВЕЕР:МЕХТ І ` 
&7@ 1-1МЕС(@,15›-‹(‹39Ф,21›," "BF 

680 LOCATE 8, 16 


6980 РКІМТ" GAME OUER !! 

700 PRINT 

710 РКІМТ" アナ タ ノ ホッ イン トロ "РОЈ "72 27У9" 負け の メッ セー ジ 
729 PRINT 

730 PRINT" モ う 1 ト ~ アァ アソ ヒ "* マ スカ? て (Y/N) "5 


748 1%=ІМРОТФ (1) 

750 IF ІФ="Ү" ОК ІФ= "Уу" ТНЕМ КОМ 
768 IF ІФ= "№" OR ІФ= "п" ТНЕМ CLS:END 
778 GOTO 740 

780 КЕМ 


790 TEMPO 3080 Ë 

800 FOR I=0 TO 30:PLAY "056068: 05800640": МЕХТ 

810 LINE(0,15)-(3%9,21)," ",BF 

828 LOCATE 0,16 

830 PRINT" You аге fine !! Ре Š 
840 PRINT 9592 
850 РКІМТ" オミ コト ド チ パス ョ "РОР" “ЫЛА " 

860 PRINT 

870 PRINT" モウ 1 ト ~ アソ ヒド マス カー (Ү/М) "; 


880 1 も =INPUT も (1) 

8908 IF І%-"Ү" OR I$="y" THEN RUN 
900 IF ІФ-"М" OR ІФ="п" THEN CLSiEND 
918 вото зве 


ә“ 7-а VER 1.8 
ТІМЕ= Жа 


You аге fine !! 
オミ コト テス ョ 』 12 テン テウ タ ョ 
モ そり 41 ト ~ ?УЕ“?2Л0? (V /N)B 
ооа 
ШЕ [C]COPYR1IGHT 1983.7 Bv HEART SOFT ШЕ 


お 見 事 . ノ 得点 12 で ゲー ム 終 了 . 
も っ と 短 時 間 で 終了 する よう 頑張 ろう . 


ШШШ SHARP-X1 Computer 87427 V.1 WSB 


ШЕШ 7ЛІ% 3587 8 


1..уз2Е の 。・ イ リョ ウ ヒ 
3..9°5-37Е 4..9%“-Е”" 
5..19909Е 6..*3f$> 
7..У)9  8..-3195f$> 


エラ ヲイ 19%ҰЛП” 71092) (uZn)? В 
99“у BN“ フロ エラ レ マ セ ン ョ アシ カラ う ス ド 


ШЕ (C〉Copgri ght 1983 By HERRT SOFT ШЕ 


マイ コン を ゲー ム マ シン に し て は 勿体 無い 限 り で す 。 そこ で 一 番 身近 
で 実用 に な る も の を , と いう こと で 作っ た の が , この “コンピュー ター 
家計 簿 " C+, 

本 書 の 中 の プロ グラ ム に し て は , わり と 長く , リス ト を プリ ンタ ー で 
出力 する と , プリ ンタ ー 用 紙 で は 7 枚 に わた っ て し まい ます 。 まあ お あ , 気 
Бс, ゆっ くり と 打ち 込ん で 下さ い 。 以下 に 使用 法 を 書き ます が , た だ 
読ん だ だ け で は 分 か り に くい と 思い ます 。 ま ず は 使用 し て みて 下さ い 。 
使っ て みれ ば , さほど 難し いこ と で は な いと 思い ます 。 
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プロ グラ ム の 使用 法 


次 コマ ン 


次 コマ シン 


үлде с. 


プロ グラ ム を RUN ミ せる と , まず この 家計 簿 で 使え る 項目 名 が 表示 
され ます 。 ここ て で 項目 を 変更 する か 尋ね て きま す 。 項 目 は 全部 で 8 項目 
あり ます が , 最後 の “入金 " だ け は 変更 で き な い よう に な っ て いま す 。 
これ は , この 後 の 説明 の コマ ンド 7 С, グラ フ を 出力 する 場合 に 使用 し 
て いる た めで す 。 項 目 を 変更 する と き は ХУ” を , し な いと まき は Ча” 
を 押し て 下さ い 。 y を 押し た と き は , 変更 し た い 項 目 ナ ン バ ー, 項目 名 
£, 画面 の 手順 に そっ て 入力 し て 下さ い 。 この 処理 を 終え る と , 次 に コ 
マン ド の メニ ュー が 表示 され ます 。 コマ ンド は 全部 で 8 コマ ンド 有り , 
1 一 3 まで が 出力 関係 , 4 ~5 まで が 入力 関係 , 6 8 8 まで は その 他 で 
す 。 こ の コマ ンド ・ メ ニュ ー が , メイ ン ル ー チ ン に な っ て いま す の で , 
各 処 理 を 終え る と . ここ へ 戻っ て 来る よう に な っ て いま す 。 ` 
F1 

この コマ ンド は , 内 部 の 数 値 を カセット テー プ に 出力 する も の で , 2 
ー タ の 保存 用 と し て 使用 し ます 。 画面 に メッ セー ジ が 出 ま す の で , 新 し 
い テ ー プ を セッ ト し て RETURN キー を 押し て 下さ い 。 メ ッ セ ー ジ と 
共に デー タ が 出力 され ます 。 X 1 は 。 カセ ッ ト の デー タ 出 力 ス ピー ド が 
速い た め , 特に テー プ エ ラ ー を 起こ すこ と が あり ます の で , デー タ は , 
な る べく 2 回 以上 , 保存 する よう に し て 下さ い 。 Желе, 30 秒 一 1 分 
ほど で 終り ます 。 


F 2 

この コマ ンド は , 内 部 の 数 値 を プリ ンタ ー に 出力 する も の で す 。80 桁 
が 出力 で きる プリ ンタ ー な ら ば , どの プリ ンタ ー で も 構わ な い の で す が , 
シャ ー プ X 1 純正 以外 の プリ ンタ ー は ,。 キャ ラク ター コー ド の 違い に 気 
を つけ て 下さ い 。 


ド 3 

この コマ ンド は , 内 部 の 数 値 を テレ ビ 画 面 に 出力 する も の で す 。 画面 
上 1 度 に , 1 ヶ月 分 31 日 は 出力 で きま せん の で , 10 日 間 ず つ 区 切っ て 出 
カカ し ます 。 最 下部 に は 累積 の 合計 が 出力 され ます 。 
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次 コマ ンド 4 
この コマ ンド は , 内 部 へ 数 値 を カセ ッ ト テ ー プ か ら 入 力 す る も の で , 
丁度 コマ ンド 1 の 逆 に 当り ます 。 使用 法 も , コマ ンド 1 と 同じ で , メッ 
セー ジ の 後に , 今度 は コマ ンド 1 で 作っ た テー プ を セッ ト し RETURN 
キー を 押し ます 。 


жшт”УЕ5 
この コマ ンド は , 内 部 へ 数 値 を 直接 キー ボー ド か ら 入 力 す る も の で す 。 
まず 入力 する 月 , 日 を 入力 し て RETURN キー を 押す と , 画面 に グラ フ 
と 数 値 , 項目 名 が 出力 され ます 。 デー タ を 変更 する か 尋ね て きま す が , 最 
初 は すべ て が 0 な の で , 初め は “у” と 入力 し て 下さ い 。 す る と カー ソル 
が 左上 に 移り ます の で , 後 は 好き な よう に カー ソル コン トロ ー ル キー を 
使っ て 数 値 を 打ち 込ん で 下さ い 。 数 字 以 外 の も の を 入力 する と , 0 と 判 
断 し ます 。 1 項目 に つき , 4 デー タ 8 桁 ま て 入力 可能 で す 。 入力 が 終っ 
た ら RETURN キー を 押し て 下さ い 。 間違い が な いか も う 一 度 見 直し 
<, よけれ ば , も う 一 度 RETURN キー を 押し て 下さ い 。 自動 的 に デ 
ー タ を 読み 込ん で くれ ます 。 更に また 変更 する か 尋ね て き ,“n" を 押す 
5, 最後 に 次 の 日 の 分 も 入力 する か 尋ね て きま す 。 y を 押せ ば , また 次 
の 日 も 同じ よう に 入力 し て 下さ い 。 n を 押せ ば , これ で メニ ュー に 戻り 

ます 。 


次 コマ ンド 6 
この コマ ンド は , プロ グラ ム を 開始 し た と き に 出 て 来る , 項目 名 の 変 
更 と 同じ も の で す 。 操作 も 前 記 の 通り で , 最初 に 変更 し そこ ね た と き に 
使用 し て 下 き い 。 


次 コマ ンド 7 
この コマ ンド は , 内 部 の 数 値 を グラ フ に し て 出力 する も の で す 。 グラ 
フ は 全部 で 3 本 出力 され ます 。 1 番 上 は 1 ヶ月 の 出 金 状態 を 表示 し た も 
ос, これ は 百分率 で 表わさ きれ, 4 ドッ ト が 10% に 当り ます 。 2#, 3 
番目 の グラ フ は , 入金 と 出 金 の 関係 を 表示 し た も の で , どちら か 多い 方 
を 100% と し て いま す 。 
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х= к. Е 8 
この コマ ンド は , この プロ グラ ム を 止め る と き に 使用 し ます 。 も し , 


間違っ て この コマ ンド を 使っ た と き や , BREAK キー を 押し て し まっ た 
と き は , 直接 СОТО 90 [CR | と し て 下さ い 。 内 部 デー タ は 保存 され ます 


変数 表 


А#(п, т) 一 31 日 分 8 項目 の 数 値 

K$(n) 一 項目 の デー タ 

X#(n, m) 一 1 日 分 8 項目 の 数 値 

1I $(n) 一 画面 入力 用 LINEINPUT 文 で 使用 
B#(n) --ИЯНАЯЖ (n, 1-31) まで 


77-8) こ ュ り リ ョ フク WISE 


ptsk +-2" ... 


キー ネー トド 


リマ ス ) (1-8) 7 
983 By HEART 
OOOOO00000 


コン ピュ ー タ 家計 沙 の メニ ュー 画面 


16. コン ピュ ー タ ー 家 計 簿 
家計 簿 ・ フ ロー チャ ー ト (1) 


START 


Ф カセ ッ ト へ の 出力 
初期 設定 


ファ イル を オー。 | 
А. 


АЕ А830] 
まで を 出力 


ファ イル を クロ | 
РЕН 


Ф プリ ンタ ー へ の 出力 | 


A#(1,1)—A#(8,31) A#(1,1)—A#(8,31) | | Х$(1)—Х$(8) Í 
を 出 カ まで を 10 日 ご と に 出 カ Al 
B#(n) に A#(mm) の B##(n) に A#(n,m) の АФ(,1)-Аф (8,31) 
合計 を 入れ る 10 昌 分 の 合計 を 入れ る ‚ЗС АЯ 


ファ イル を クロ ー ズ 』 ` 
する | 
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жұм таса ri 


@ キー ボー ド か ら の 入力 че 


項目 名 を 出力 


зектен» | 


出 金 と 入金 の 比較 | 
し た グラ フ の 出 カ | 


項目 別 の 百分率 
を 出力 _ 


КЕМж For SHARP-X1 Ву HEART SOFT 
КЕМж 
РЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
18 CONSOLE 0,2S5:HIDTH 46 


1 ВЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
2 КЕМж ж 
3 REMK ШЕШ Computer 2747“ Ver 1.0 ЕН ж 
4 КЕМж ж 
5 КЕМж ІСІСоругіоҺһ% 1983% 7 月 ж 
é ВЕМж ж 
7 ж 
в ж 
? 


20 DIM AB (8,31), K$ (8) , ХИ (8, 4), 1%(82, B# (8), R (8) 


30 К6(10:"ув2с":К%(20-" 41787": КФ (3) = "9° эЛЕ" 
40 КФ (4) = リサ ーッ ヒ ? ":К%(5) = "37776 ":КФ (6) = "ўв?" 
50 КФ (7) ="4/9":КФ (8) = リニュ ウキ ネン" :Мад:Р=1 

68 60Т0 1590 

708 КЕМ ШЕШ ゲイン ルー チン ШЕШ 

80 CONSOLE 0,25 

90 MIDTH 49:PRINT CHR%(12); 

199 LOCATE 0,1 
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項目 の デー タ 


118 PRINT " ШШШ SHARP-X1 Computer カケ イ ホ ^ V.1 ШЫҒЫ”; 


129 LOCATE 0,23 


130 PRINT " ШШ (C〉Copyright 1983 Ву HEART SOFT ШШ"; 


140 LOCATE 13,3 

150 РКІМТ"ШЕШ メニ ュー ШИН" 

140 LOCATE 0,5 

178 PRINT ТАВ (9); "ШШШ 2--2/ シュ ツリ ョ ク ШШШ" 
189 PRINT 


198 PRINT TAB(19)3"1。。。 カセ ッ ト #-2° ..." 
208 PRINT ТАВ (10); "2... ファ リン ター CE 
218 PRINT ТАВ (10); "3... テレ ヒビ" カメ フラ 
229 PRINT 


230 PRINT ТАВ (9) ; "ШШШ 7--2) ニュ ウリ ョ ク ШШШ" 


250 PRINT ТАВ (10); "4... 
260 PRINT TAB (10); "5... 


カセ ッ ト 5-28..." 
キー ホー トド о..." 


270 PRINT 

280 PRINT ТАВ ‹10); "4... ув? セッ テイ ..." 
298 PRINT ТАВ (10); "7...2°`57 シュ ツリ ョ ク 。。。 " 
300 PRINT TAB (10); "8... オシ マイ өш” 


310 LINE (0, 0) - (89, 24), "X", B 

329 LOCATE 8,21 

330 PRINT" ト ~ ノ コウ モク ニ シマ スカ (1-8)?"; 
340 I$=INPUT$(1) 

350 IF I$<"1" OR I$>"8" THEN 34808 


メニ ュー を 表示 


キー 入力 1 一 8 まで て 


360 ОМ ЧА (1%) GOTO 370, 600, 900, 1460, 2110, 16908, 3110, 3570 


370 КЕМ ШЕШ カセ ッ ト へ ノ シュ ツリ ョ ク ШЕШ 
380 PRINT CHR%(12); 
390 LOCATE 0,1 


408 PRINT " ШШШ SHARP-X1 Computer 7747 9.1 ШЫҒЫН"; 


410 LOCATE 0,23 


420 PRINT " ШШ (СоСоругіоһҺһ% 1983 Ву HEART SOFT ШШ"; 


438 (.ІМЕ<0,02-<39,242,"Х";В 

449 LOCATE 8,10 

450 РКІМТ "アク ララ シイ カセ ッ ト テ ー フ * ラ ヲ イレ テク ター サ イ 。『 
468 LOCATE 5,12 


470 РКІМТ "ヨウ イカ ^ 7° キマ シタ ラ КЕТОКМУ 49922794.) 


480 I*=INPUT$(1) 

490 IF 1%<›СНКФ (13) ТНЕМ 480 
S00 OPEN"0",#1, "カケ イ ホ * ノ 57-9" 
510 FOR I=1 TO Ə:PRINT #1,X$(I) 
520 NEXT I 

530 FOR 1=1 TO 31 

540 LOCATE 5,15 


550 PRINT “227471 "日 ソン ノ 27-29 カキ コミ ジュ クウ テス ョ "5 


メッ セー ジ 出 力 


ーーーーー ファ イル を オー プン する 
| 項目 の デー タ を 出力 


560 PRINT#1, Ай (1, 1), Ав (2, 12, АЙ (3, I) A (4, 1), АН (5, 12, A (é, 12, Ай (7, 12, Ай (8, か へ 


570 NEXT I 


600 КЕМЕШ 272°')x2-A2 シュ ツリ ョ ク ШЕШ 
る 19 FOR I=0 TO 8:В# СІ) =0:МЕХТ І 
620 LPRINTTAB (20); 


ファ イル を クロ ー ズ する 


31 日 分 各 デ ー タ の 出力 


る 39 LPRINT " NER SHARP-X1 Computer カケ イ ホ ^ 9.1 ШЫҒЫ"; 


る 49 LPRINTILPRINT 
658 ІРБІМТ" 
—( " 


HE 
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668 LPRINT" | ВІ "КІбНТФ (" "+K$ (1, 8) "1 "RIGHT まく " "КФ (20,8) "| "ВІН 
т" "КФ (3), 8) "1 "RIGHT を SC" "+К® (42,80 "1 "RIGHT て" "КФ (50,8) 
"I "RIGHT$(" "*K$(é),8)>" | "КІСНТФ С" "+КФ (7), 895 " | "КІБНТФ С" "К 
+‹8›,8) "1" 

678 LPRINT" | ——— — n ——++——— 
— " 

688 FOR I=1 TO 31 項目 の デー タ x 
698 LPRINT" |"j:LPRINT USING"##"; I; 日 を 表示 そろ えて 表示 
708 LPRINT" 1"; 

710 FOR J=1 TO 8 

728 LPRINT И581Мб"##нйннй#"; А# (21, 1); 数 値 を 表示 


730 LPRINT" 1"; 

740 NEXT J:LPRINT:NEXT I 

750 LPRINT" EE 
— " 

760 FOR I=1 TO 8 

770 FOR J=1 TO 31 

780 В# XI)=B# (1) +A# (І, J> 

7908 NEXT JiNEXT І 


800 LPRINT" Ж ыы: 

810 FOR I=1 TO 8 

828 LPRINT US ING "#ННИНННН"; ВН (1); — — 5510Ж T. 

830 LPRINT "|"; 

840 NEXT I:LPRINT 

850 LPRINT" ——— A — A vj. 1 — ——————Y  ———_o-[ "OMH 
— s 

860 LPRINT 


870 LPRINTTAB (2052; 

880 PRINT " ШШ (C5Copyri9ht 1983 By HEART SOFT ШШ"; 
890 GOTO 70 

900 КЕМ ШЕШ カ " メ ン ヘ ノ シュ ウリ ョ ク ШЕШ 

910 MIDTH 8@ 

920 FOR I=0 ТО 8:В#‹1›=@:МЕХТ I:GOTO 1170 

930 PRINT СНЕ%(12›; 

940 LOCATE 20,1 

950 PRINT " ШШШ SHARP-X1 Computer Л74Л V.1 ШЫҒЫ”; 
968 LOCATE 20,23 

970 PRINT " ШИ (СосСоругіозһ% 1983 Ву НЕАКТ SOFT Ш"; 
980 (ОСАТЕ 0,4 


ーー 
— " 
1000 PRINT" 1 BI"RIGHT*$(" "+K$ (1) ,8> " | "RIGHT$" "+КФ (2), 8) " | "RIGH 
ТФ" "+K$ (3), 8) " | "ВІбНТФ ‹" "+КФ (4) ,8) " | "КІСНТФ ‹" "+К% (S), 8) 
"| "RIGHT まく" "+КФ (é) 8)" | "RIGHT$(" "+K$ (7) 8)" | "RIGHT$ С" "+K 
Ф (8›,8) "1" 
селе РЕТ” ‘トト 
— " 


1020 PRINT" | | | | | І І | | 
1" 
1030 PRINT" | І І І | | | | | 


1040 PRINT" | l | 1 І І I І І 


1050 PRINT" | | l | | | | | | 
|" 
1060 PRINT" | 1 | | | | I | I 


1078 PRINT" | | | I | | | | | 
1088 PRINT" | | l | | | І І | 
1090 PRINT" | | | | | І | I | 
1100 PRINT" | | І ! | | l | | 


1119 БЕШТ" І І 1 | І | | | | 
1129 PRINT* | І | | I І | I 1 
1139 тере Per tc. ri r E а 2 
1140 Шы ЖЫ) I | | | | | | 
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1159 PRINT" — n  - —- ATMH  — T s  . rrI.o. -— 


1160 RETURN 

1170 КЕМ ШШШ テ "ー タ ノ ファ リン ト ШЕШ 

1180 FOR K=0 TO 2 

1198 GOSUB 93е 

1200 FOR 1=1+Кж1@ ТО K※19+11 

1210 LOCATE З, I+é-K%10:PRINT USING"R#"j I —— 日 数 を 表示 
1220 NEXT I 

1230 FOR 1=1+Кж1@ TO Кж1@+11 

12409 LOCATE 6,1%6-КжідіРБІМТ ОИ51Мб"########";А# (1, 1) 
1250 LOCATE 15, I+é-Kx*x10:PRINT Ш581Мб"########";А# (2, 1) 
1250 LOCATE 24, 1%6-КжіӨІРБІМТ И51Мб"########";А# (3, 1) 
1270 LOCATE 33, 1%6-КжідіРБКІМТ USING"B#B#HHRRRBR8 U AB (4, 1) 各 項 目 の 数値 を 出力 
1280 LOCATE 42,1+6-K19:PRINT И51Мб"########"; AB (5, 1) 
1290 LOCATE 51, 1+&-Кж1@:РЕ1МТ М6ІМС"НННННННН" АН (4, ID 
1300 LOCATE る 9, 1+&-Кж1@:РЕ1МТ И51Мб"#####Н###"; AB 7, 1) 
1310 LOCATE 69,1%6-КжідіІРБІМТ И51МСб"###Н#####”;А# (8, ID 
1320 NEXT I 

1330 FOR I=1 TO 8 

1340 FOR 7=1+Кж1@ TO Кж1й+11 I 
1350 В# (I) =В# (1) +А# (І, J) 数 値 の 合計 を 計算 する 
1368 NEXT JiNEXT І 

1378 FOR I=0 TO 7 

1380 LOCATE 6%1ж?, 19:РБІМТ И51Мб"########";В# 01+1›—— 合計 を 表示 
1390 NEXT I 

1400 LOCATE 25,21 

1410 PRINT "ヨミ オフ ッ タ ラ SPACE+-3 オシ テ クタ" サイ 。 "5 

1420 I$=INPUT$(1) キー 入力 
1430 IF 1%4»" " THEN 1420 

1440 NEXT K 

1458 GOTO 76 

1460 РЕМ ШШШ カセ ッ ト カラ ノ ニュ ウフ リ ョ ク ШЕШ 

1478 PRINT CHR も (12)』 

1480 LOCATE 0,1 

1498 PRINT " ШШШШ SHARP-X1 Computer カケ イ ホ ^ 0.1 ШЫҒЫ; 
1500 LOCATE 0,23 

1510 PRINT " ШШ (Сосоругіоһ% 1983 By HEART SOFT Ш"; 
1520 LINE (0, 8) (39,24), "X", B 

1530 LOCATE 4,180 

1540 PRINT " テ "ー タ ノ イッ テイ ルル 力 セッ ト テ ー フ * ラ ニー イ レ テ ク ヲタ ド サイ 』" 

1550 LOCATE 5,12 

1560 PRINT "ヨウ イカ ~ 97 キマ シク タラ RETURN ラ 49929594.) 

1570 1 まま =INPUT ま (1) 

1580 IF 1Ф<›СНЕФ (13) THEN 1570 

1590 ОРЕМ"І", #1, "カケ イ ホ "ノー 5-5" 

1600 FOR Ісі TO Bi INPUT #1,хХ%(1› 

1610 NEXT I 

1620 FOR I=1 TO 31 

1639 LOCATE 5,15 

1640 PRINT "ヲタ ドイ マリ "15" 日 フツ ン ノ テー タラ ヨミ コミ テ チュウ 9724 "j 

1650 INPUTB1,A8 (1, I う ай (2,12, Өй (3, ID, AB (4, ID AB (S, ID, AB (é, 1), ай (7,12, Ай (8, 1) 
1660 NEXT І 

1670 CLOSE #1 

1688 GOTO 70 

1690 КЕМ ШЕШ >з+ セッ テイ ШЕШ 

1700 PRINT СНЕФ (12); 

1710 PRINT " ШШШ SHARP-X1 Computer 77479 いり 。1 ШЫҒЫ"; 
1720 LOCATE 0,23 

1730 PRINT " ШШ (СосоругіоһҺ% 1983 Бу HEART SOFT ШЫ"; 
1748 LOCATE 10,3 

1750 PRINT "ШШШ ツカエル コウ モク ШШШ" 

1768 LOCATE 10,8 

1770 PRINT "1.."jK$(1) 

1780 LOCATE 20,8 

1790 PRINT "2.. ";КФ (2) 

1800 LOCATE 10,180 


1810 PRINT "3... "; КФ (З) 
1820 LOCATE 20,180 
1830 PRINT "4..";К%‹4› 各 項 目 名 を 出力 


1840 LOCATE 10,12 
1850 PRINT “5..";К%<5) 
1860 LOCATE 20,12 
1870 PRINT "4..";К%‹4› 


16. コン ピュ ー タ ー 家 計 簿 


1880 LOCATE 19,14 

1890 PRINT “7..";%К%ФСс?О 

1900 LOCATE 20,14 

1910 PRINT "8。。 "3 に K 生 (8 う 

1920 LOCATE 5,18 

1930 РКІМТ "カエ タイ 122%2Л7 アリ マス カ (yZ/Zn)?" Х 

1940 LOCATE 5,20 

1950 PRINT "22"> № № カエ ラ レ マ セン 』。 アシカ ラス" " 

1950 LINE (S, é) (32,16), "X", B 

1970 LOCATE 31,18 

1980 ІФ= ІМРОТ%Ф (1) 

1990 IF ІФ<> "у" ТНЕМ 76 

2000 LOCQATE 0,18 

2018 PRINT SPACE$ 120) 

2020 LOCATE 5,18 x, РАЖ АЉ 

2030 РКІМТ "№ / コウ モク ラー ペン コウ シマ スカ (1-7) "; 

2040 I$*$=INPUT$ 1) 

2058 IF ІФ<"1" OR I$>"7" THEN 2046 

2868 I=VAL (I$) :РКІМТ I 

2070 LOCATE 5,20 

2080 PRINT "コウ モク ラ ニュ ウリ ョ ク シテ クタ サイ" 

2090 INPUT I$:K$(I)=I$ 

2100 GOTO 1490 

2118 КЕМ ШШШ %-Л--һ” カラ ノ 2271727 ШИЕ 

2120 PRINT СНЕФ (12); 

2130 LOCATE 8,18 

2148 PRINT" 3° ーー タラ ニュ ウリ ョ クス ル НК ВЭ 215118727 29994." 

2150 і ОСАТЕ 5,20 

2168 PRINT" 月 月 。 日 日 ノ ョ ウニ 2775" サイ 。 "; 

2170 INPUT M, P 

2180 FOR І=0 TO 8:FOR J=0 TO 4:XH (I, J)=0:NEXT J:NEXT І 一 変数 クリ アー 

2190 PRINT СНЕФ (12); 

2200 LOCATE 0,60 

2210 PRINT " ШШШШ SHARP-X1 Computer カケ イ ホ ~ 9.1 ШШ: 

2220 LOCATE 0,24 

2230 PRINT " ШЕ (C〉Copyright 1983 Ву HEART SOFT ШЫ”; 

2240 LOCATE 25, 1 

2250 PRINT М; "Я";Р; "В" 

2268 LOCATE 0,2 

2278 PR  -:--5:5:5-- 

2288 PRINT" | I"jRIGHT*(" "+К®С(1›,8›;”]";К1бНТ%®(" "*K$ XZ) BY RI 

GHT$ ‹" "+K$ (39) 8); "| "3RIGHT$(" "+K$ (4), 85; "|" 

ерте PRINTS F—+——— Y —Y t-r. 

2300 PRINT"I1I | І 

2318 PRINT" |121 І І І 1% 
І І | 
| І | 


2320 РКІМТ" 131 
2330 РКІМТ" 141 
= 249. RN 

2350 РКІМТ" | = | | І l I" 

дәне РКІМТ” 6—4" 

2370 PRINT" | 173RIGHT を て" "+КФ (5), 8); "|"; КІбНТФ С" "+КФ (6), 8); "|" Ri 
GHT$ ‹" "+КФ (7) 8) "|": КІБНТФ С" "+К% (8) ,8); "|" 

зе РЫН W А 

2390 РКІМТ" [11 | | I 
2400 PRINT" 121 I I 

2410 РКІМТ" 131 | І 

2420 PRINT"141 І | 

2438 РЕ1МТ^ Е-е-е == =н td 
2440 PRINT" |=| | І 1 

рө РЕН ы ——-=+# 
2460 FOR 1=1 TO 4 

2470 LOCATE 3 , I+4:PRINT ОЅІМО "#ЯННИННН"; ХИ (1, 1) 
2480 LOCATE 12, 1+4:РКІМТ Ы51МО "#Н#######";х# (2, І) 
2490 LOCATE 21, I+4:PRINT 0ЅІМО "#инНИНИН U; ХН СЗ, I 
2500 LOCATE 30, 1+4:РКІМТ ОЅІМО "НиНИННИН"; XH (4, ID 
2510 NEXT I 

2520 LOCATE 3 , 1@:PRINT ШЅІМО "##нИйННН "АН (1,Р› 
2530 LOCATE 12, 10:PRINT USING "#иНИИННИ "АН (2, P) 
2540 LOCATE 21, 10:РКІМТ М5ІМО"МИНИННЯН "АН (3, P) 
2558 LOCATE 30, 10:РКІМТ М5ІМО"ФИНИНИЯН "JAM (4, P) 
2560 FOR I=1 TO 4 

2570 LOCATE 3 , I+13:PRINT USING "#иННИИНИ "j XR (S, 1) 
2580 LOCATE 12, I+13:PRINT 0ЅІМО "НИНИН "у ХИ (ó, І) 
2598 LOCATE 21, I+13:PRINT USING"##WWBR8H "XH (7, ID 


各 デ ー タ を 出力 する 


3289 


3310 


LOCATE 
NEXT I 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


16. コン ピュ ー タ ー 家 計 簿 
30, Ir13:PRINT МбБІМС"ЕННННННН U XR (8, I 


З , 19: PRINT USING"#B#8##H#B8BR "АН (S, P> 
12, 1I9:PRINT USING "##Н#Н#####";АН (é, P) 
21,19:РКІМТ ОЅІМО "#яННЯННЯ "АН (7, P> 
30, 1 の IPRINT US INIG "#яиННННЯ"; АН (8, P) 
5,22 


РВІМТ "5° -3/ シュ ウ セ イラ シマ スカ バッ プ n う "5 


ІФ=ІМРОТФ (1) 

IF 1%="у" OR 1%-"Ү" THEN 2778 

IF 1%-"п" OR 1%="М" THEN 2728 

GOTO 2580 メッ セー ジ 出 力 & キ ー 入 力 
LOCATE 5,22 

РКІМТ" 9%%) B- ウツ リマ スカ (у/п) ы 

1%= ІМРОТФ (1) 

IF ІФ= "п" OR ІФ= "№" THEN 70 ELSE P=P+1 

IF P=32 THEN 7808 ELSE 2110 

LOCATE 0,21 

PR INT" スウ チラ 272 カー ソル キー ラー ツ カ ッ テ ニュ ウリ ョ クシ テー クタ ドサ イ 。 "j 
PR INT" ニュ ウリ ョ ク カ ^ スミ マシ タラ RETURN キ ー ラ オシ テク タ ド サイ 。 "j 
LOCATE 3,5 

LINEINPUT 1% 


KEY @, CHR$% (30) 
FOR I=1 TO 4 


LOCATE 


8, IT+5iLINE INPUT I$(I) 画面 読み 取り に 使用 


KEY 0, CHR$ (30) +СНЕФ (13) X1 に 1 を 押さ せる 


NEXT I 


FOR I=1 TO 4 


LOCATE 


9, 1+14:1 ІМЕІМРОТ I$(I+4) 


KEY 9, CHR$ (30) +CHR$ (13) 


NEXT 1 


FOR I=1 TO 4 


Хи (2, ID =UAL (MID$ (I$ (1), 13, 85) 
X# (3, ID =UAL (MID$ (1$ (І), 22, 8>> 


NEXT 1 


FOR I=1 TO 4 

X# (S, 1) =VAL (MID$ (1$ (1+4),4 ,8)) 
Х# (é, ID =UAL (MID$ (I$ (1+4), 13, 85) 
ХИ (7, ID =UAL (MID$ (1% (1+4), 22,8) > 
X# (8, ID =UAL (MID$ (1% (1+4),31,8)) 


NEXTI 


FOR I=1 TO 8:ó# (I,P)=0 


FOR I=1 TO 8 
FOR J=1 TO 4 


変数 を 修正 する 


Ёй (I, P) =А# (I, P) +Х# СІ, J> 

NEXT J:NEXT I 

PAUSE 10 

бото 2190 

КЕМ ШЕШ 7-22/ シュ ツリ ョ ク ШЕШ 

FOR 1=@ TO 8:В# 1) =0:МЕХТ 1:С#=@ 
CONSOLE 0,25 

MIDTH 880:CLS 4:PALET 


LOCATE 


PRINT " 


LOCATE 


※ (1, I =UAL (MID$ (1$ (1) 4 8)) ) 
X# <4, ID «Уй. (МІОФ (ІФ (1) 31, 85> | 読み 込ん だ デー タ を 数 値 に 直す 


20,1 
ШЕШЕН SHARP-X1 Computer カケ イ ホ "~ 0.1 ШЫҒЫ"; 
20,23 


PRINT " ШЕШ (СоСоругіоҺі 1983 Ву HEART SOFT ШШ"; 
LINE ‹30, 20) - (149ж4, 89ж2),РЗЕТ, 7,8 — t: ( 


К=30 


FOR Ізі TO 8 

FOR Ј=1 TO 31 

В# (1) =B# (І) +A# (І, J> е 
NEXT JsNEXT T 数 値 を 集計 する 
FOR I=1 TO 7 

С#=С#+В# СІ) 


NEXT I 


IF C#=0 OR В# ‹8) =0 THEN LOCATE 30, 12:РБІМТ"ШЫШ 7° -2p"° 7U7t> ШЫШ-:ҒОБ 1-1 TO 
1900:NEXT 1:6070 79 ーーーーーーー 入金 ・ 出 金 の 合計 いずれ か が 0 の 場合 

329808 FOR 1=1 TO 7 

3300 R(I)=BW (I) 7Chw1i09 —— 百分率 を 計算 


NEXT I 


16. コン ピュ ー タ ー 家 計 簿 


3329 
33380 
3340 
3350 
33 る 9 
3370 
3389 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
заве 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3 る 99 
3610 
3 る 29 
3 る 639 
3546 


FOR Ісі TO 7 


LINE (Кж4,25ж2) - (Кж4зК(12ж4, 54ж2), PSET, 1, BE — “ФО % 117) 


R=R+R (I) 

NEXT I 

IF C#>B#(X(8)> THEN 3400 

LINE ‹30ж4, 120) -<130ж4, 54ж2),РЅЕТ, é, BF 


LINE <30ж4, 1402 - <30ж4% (Cñ ZB# (8) жій0) ж4, 74ж22,Р5ЕТ, 2, BF 


6070 зага 


LINE <30жд4, 1202-(30ж4 + (В# (8) /С#жійӣ) ж4, 64ж22, PEET, é, BF 


LINE <30ж4, 1402-<138ж4,74ж2),Р5ЕТ,2,ВҒ 
LOCATE る ,43PR INT リ シシ ュ ウ ウチ ワケ テー "j 
FOR I=1 TO ZiCOLOR І 

РКІМТ K$(I);" ы. 

МЕХТ 1 

LOCATE 15,5 

FOR I=1 TO 7:COLOR I 

PRINT ІМТЕ(122;"% “3 

МЕХТ І 

LOCATE 6, 14: РВІМТ リセ ドン シュ ウニ ュ ウ "5 
LOCATE é, 16:РКІМТ "リセ ドン フシ シュ ウツ リョ 
LOCATE 25,21 

PR INT "3277525 SPQCE ビ キーラ オシ テ 2927944"; 
I*$=INPUT$ (1) 

IF 1%‹›" " THEN 3540 

GOTO 780 

REM ШЕН オミ マイ ШШ 

PRINT СНКФ (12) ; 

LINE (0, 0) – (39, 24), "X", B 
LOCATE 13,180 

PR INT "2° 2 クロウ サマ 5° 29, " 

LOCATE 10,14 

РЕ1МТ"ШШШ ピッ > HEART SOFT ШЕШ" 
END 


出 金 ・ 入 金 の 比較 し た グラ フ 


W SHARP-Xi Computer 8742” У-1 ш 
5 B 25 B 


Jl ‹лф|ш 
о | nooo | өз 


1 
に 
4 
回 3 
т 


LJ 
е 4 
Nš 
> 
+ 
[25 
+ 
“ 
ч 
- 
ч 


NP 


QQGQGQGITIQGIQGQGQOQG | rT 
= 
@ 
g 
e 
e 


вв 
1 5 208000 18080 1880009 
Š 5 8 8 8 
3 8 8 8 


|=| see| zegeee ЕГТТІШЕТСІІ 


Ж РЕИРКОЛТЕЗРЕУ (чп) 


ШЕ (C)Copuri ght 1983 Bu HERRT SOFT ШЕШ 


コン ピュ ー タ ー 家 計 落 の デー タ 入 力 画面 


== 88 — 


ЖҰЖ SHRRF-N1 SUPER 7447 77-0 ЧЕР 


ооо 


日 本 で は 賭け ご と は 禁止 され て いま す が , 唯一 認め られ て いる の が 競 
Е, 競輪 , ボー ト 等 で す 。 その 中 で も 一 番 人 気 の 高い 競馬 ゲー ム を 作っ 
て み ま し た 。 こ の ゲー ム は 1 一 5 枠 ま で あり , 単勝 式 で , 複 勝 で は ぁ り 
ませ ん 。 ここ で は 完全 に ラン ダム で す の で , ЛАБ, 穴馬 等 は あり 
ん が , 配当 倍率 も ラン ダム で す の で , せっ か く 当 て て も 倍率 が 1 倍 と い 

と も あり ます 。 な お , 倍率 は 1 一 10 倍 の 間 に な り ま す 。 

最初 , 馬 を 動か す ル ー チ ン を 作っ た と き , 1ーINT(RND( 1 ) *6) :ON 
I GOTO 一 と し て いた の で す が , X 1 の RND 関 数 は 数 の 少な い 方 が 圧 
倒 的 に 多く 出 て 。 1 一 2 枠 が 勝っ て ば か り い まし た 。 こ れ で は ゲー ム に 

な り ま せん の で , 各 馬 を 動か す ル ー チ ン を 作り , そこ で 馬 を 動か すか 動 
か き さ な いか の 確率 を 使い 馬 を 動か すこ と に し まし た 。 た だ , これ で も 
1, 2, 3…5 の 順に 馬 を 動か し て いる た め , 数 の 少な い 方 が 有利 と も 
いえ る の で す が , 実際 の ダー ム は ほとん ど と 影響 が あり ませ ん の で 御 安心 


を 


17. 競馬 ゲー ム 


ゲー ム の 遊び 方 
プロ グラ ム を RUN す る と , まず 何人 で 遊ぶ か 聞い て きま す 。 最 高 は 
9 人 まで で , 各自 に 名 前 を 入力 し て 下さ きい 。 各 馬 の 名 前 が 発表 きれ , ど 
の 馬 に いく ら 賭 ける か を 入力 し ます 。 す る と 画面 が 変わ り ,。 ファ ン フ ァ 


ー レ と 共に 馬 が 走り 出し ます 。 後 は 自分 が 賭け た 馬 が 勝つ こと を 祈る だ 
け で す 。 勝っ た 場合 は 賭 金 X 倍 率 が 得点 に な り ま す 。 


変数 表 


U$(1) 一 U$(6 ) 一 馬 の デ ー タ 
S(n) つ 持 ち 金 

5 $ (п) ラマ プレイ ヤー の 名 前 
X1~-X5 つ 各 馬 の Y 座 標 
W(n) ээ 

K(n) 買う 枚数 

W I N っ 勝っ た 馬番 

Q — = 

H, І, 2, КУЙШЕ 


の 97 


6 n" 4 


17. 競馬 ゲー ム 


ШҚУ- А 70-7 - Б 


Се”) 
画面 作成 (1) _ 


当っ た と き の _ 
倍率 表示 


馬 枠 , か け 金 を 入力 
画面 作成 (2) 


17. 競馬 ゲー ム 


1 КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
2 БКЕМж ж 
З КЕМж ШШ SUPER 77077-02 VER 1.0 ШШ ж 
4 КЕМж ж 
5 КЕМж [C]COPYR 1GHT 1983% る 月 x 
6 КЕМж ж 
7 КЕМж FOR SHARP-X1 BY HEART SOFT ж 
8 КЕМж ж 
の БКЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


-- 
° 


MIDTH 49:CONSOLE 0,25 
29 COLOR 7, 9iCLS 
30 ОФ (1) =" -." 


40 0%(22:" 88 - 
馬 の デ ー タ 


50 и%‹З›=" ノヽ " D алат, 
る 9 0% (4) =" -" 自分 の 好き な よう に 変え て も いい 
78 ОФ (5) =" NER ` 
80 ОФ (6) =" N и" 


90 LOCATE 18, 15 

100 ІМРОТ"72227°` УЕ“ тял"; М 

110 FOR K=1 ТОМ 

120 LOCATE 9, 17:PRINT ЅРАСЕФ (39) ; 数 
130 LOCATE 8,17 | 
140 PRINT К; : ІМРОТ "№22 オナ マエ IN "}5%‹(К› 

150 5 (К) =2999:NEXT К 

160 COLOR 7,0 

170 Х1=7:Х2=7:Х3=7:Х4=7:Х5=7:С15 

180 LOCATE 0, ё: РКІМТ" ШШ SHARP-X1 SUPER 7499 7%-4 VER 1.0 ШЫҒ; 
190 LOCATE 0, 24:РВІМТ" ШШ COPYRIGHT 1983. 6. BY HEART SOFT ШШШ"; 
200 LOCATE 9,8 


қ 名 の 人 力 


210 PRINT* 1 ワク 。。。。 イセ イコ ー 2 ワク 。。。。 タケ ホー フラ ° " 
229 PRINT л 
230 PRINT" 3 ワク 。。.. ァ アス" マン ター 472....+9/Л09К°+%" СА 
240 PRINT Б 


250 PRINT" | 59?2....Һоув? 40-4" 
268 1.1МЕ(08,62-(39,142,"Ш"8 

278 FOR K=1 TO M 

288 LOCATE 9,18:PRINT 5РАСЕФ(399; 

290 IF S(K)=@ THEN 410 L44009 D. жадан 
308 LOCATE 5,18 リー | 
310 PRINT S を CK) 5 "サン ノ モテ キン 0 "35 (К); "А 52"; 

320 LOCATE 9,29:PRINT ЅРАСЕФ (39); 

330 LOCATE 12,20 買う 馬券 の 枠 を 入力 する 

340 INPUT" ナ ン フ クラ カイ マス カ "} НФ (К) 

359 IF VAL (ИФ (K))<1 OR UAL (ИФ КЎ) >5 THEN 320 

368 LOCATE @,20:PRINT SPACE$ (39); 

378 LOCATE 8,29 


380 INPUT" ナ ンマ イ カイ マス カ (174 18009FD ";K$ (K) 馬券 の 枚数 を 入力 する 
390 IF ЧА (K$(K))<1 OR UAL KECK) )xX100>S (K) THEN 360 枚数 X100 円 が 持ち 金 を 
400 ИК) =VAL (I$ (Кә) t: K (K) =UAL (КФ (K) > オー バー する と や り 直 し 
410 NEXT K 


428 GOSUB 1420:Н=0 
430 FOR Ізі TO 5 

440 FOR 7-1 ТОЗ К Се 
450 LOCATE 7, IX3+J+H-1 スタ ー ト 前 の 是 を 表示 する 
468 PRINT ФСЈ); 
470 NEXT JiH=H+1INEXT I:H=1 1 
488 GOSUB 1920 


> ` 08 と スタ ー ト 音 
498 GOSUB 2050 メア ジッ レ と スタ ー ト 音 


508 ON н вото 539, 80, 830, 780, 1130 А 
510 H=H+1:IF H=é THEN Н=1 \ 各 馬 を 動か す ル ー チ ン へ 行く 
528 GOTO 490 どれ か ゴー ル す る まで くり 返す 


530 REM NO. 1 
540 IF INTKRND (1)w2)<>9 THEN 510 

550 X1=X1+1 | _ 2 
548 IF Хі-29 THEN MIN=1:GOTO 1280 ゴー ル し た か の 判定 X= 人 9 が ゴー ル 
578 FOR 1-1 TO З 

580 FOR Ј=1 ТО З 

590 LOCATE X1,2+J 

600 PRINT U$<J) 第 1 コー ス 

610 NEXT J үн 

&2@ FOR Ј=1 TO З EE 

630 LOCATE X1,2+J 

648 PRINT U$%(J+3); 

450 NEXT J 


7206 
?39 
740 


NEXT І 

GOTO 510 

КЕМ NO.2 

IF ІМТ КМО (1) ж2) < >08 THEN 510 
X2=X2+1 

IF X2=2? THEN WIN=2:GOTO 1286 
FOR I=1 TO 3 

FOR J=1 TO 3 

LOCATE X2,é+J 

PRINT U$(J); 

NEXT J 

FOR J=1 TO 3 

LOCATE X2,é+J 

PRINT U$(J+3); 

NEXT J 

NEXT I 

GOTO 510 

КЕМ МО. 3 

IF ІМТ ЕМО (1) ж2) < ›0 THEN 510 
X3=X3+ 1 

IF Х3=29 THEN HWIN=3:GOTO 1280 
FOR I=1 TO 3 

FOR J=1 TO 3 

LOCATE ХЗ, 10+7 

PRINT ОФ (72; 

NEXT Ј 

FOR J=1 TO 3 

LOCATE X3,18+J 

PR INT ОФ (7+3); 

NEXT J 

NEXT I 

GOTO 510 

REM N0. 4 

IF INT(RND て (1)※2) く >9 THEN 518 


1999 X4=X4+1 


1010 


IF X4=2? THEN WIN=4:GOTO 1280 


1020 FOR I=1 TO З 


1939 


FOR J=1 TO 3 


1040 LOCATE X4,14+J 


1056 


PRINT 0% (5/2; 


1060 NEXT J 


1978 


FOR J=1 TO 3 


1088 LOCATE х4, 14+J 


19 ァ 9 


PR INT ОФ (7+3); 


1108 NEXT J 


1110 NEXT I 
1120 вото 516 

1130 КЕМ М0.5 

1140 IF INTCRND〈1〉%2〉<>9 THEN 510 

1150 X5=X5+1 

1168 IF X5=22 THEN MIN=5:GOTO 1280 

1178 FOR 1-1 TO З 

1180 FOR J=1 TO З 

1190 LOCATE Х5, 18%) 

1200 PRINT ОФ СЈ) } 

1210 NEXT J 

1220 FOR J=1 TO 3 

1238 LOCATE X5, 18+J 

1240 PRINT U$(J+3); 

1250 NEXT J 

1260 NEXT І 

1279 GOTO 516 

1280 COLOR 7 

1298 605081958 — uns 


1308 LOCATE 10,12 


1318 
1320 ОӨзІМТЕМО(12ж102%1 
1338 


PR INT "リュウ ショ ウー “ІМІМ; "22 252%; 


LOCATE 10,14 


1340 PRINTWIY イ リウ 0 "зор" ミド スリ ョ 


1350 


FOR Ks1 ТОМ 


1360 IF 5 ‹К) =0 THEN 1430 


1370 


S (К) =5 (K) -К (К) жідд: IF ИСК) =ИІМ THEN 5 (К) =5 (К) +QxK (К) жідӨ 


1380 IF 5 (К) =0 THEN 1480 


1398 


LOCATE 0, 1 る IPRINT 6РАСЕФ(392; 


x 
x 
x 


第 2 コー ス 


第 3 コース 


第 4 コー ス 


第 5 コー ス 


レー ス の 優 賞 , 倍率 の 発表 


倍率 を 1 一 10 ま で に 決め る 


17. 競馬 ゲー ム 


持 金 の 計算 , 持 金 か ら 賭 金 を 


破産 し た と き 引き , 当っ た 人 金 を た す 
) 


17. 競馬 ゲー ム 


14080 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 


LOCATE 3, 16 
PRINT 5% (К) у "922 モチ キン 
PAUSE 39 

NEXT K 

LOCATE 18,18 

PR INT "SPACE キ ー ラ オシ テク ター ЧУ" 
I$=INPUT$(1):IF I$<>" " THEN 1460 
GOTO 1668 

В=@:ҒОВ T=1 TO М 
В=В+5 (Т) : NEXT 

IF B=0 THEN 1548 全員 と も 破産 し た と き 
LOCATE 10,14 

PR 1NT S$(K);"92 ñ IN サッ シテ シマ イマ シク "5 
бото 1428 

LOCATE 7,16 

PR INT "ミナ サン セン イン いい サン シテ シマ イマ シタ リョ 
LOCATE 8,18 
PRINT" そ 2 1К° 
I$=INPUT$ (1) 
IF I$="Y" OR I$="y" 
IF I$="N" OR 1%="п" 
GOTO 1588 

REM 

CLS:COLOR 7,1 
РКІМТ"жжж SHARP-X1 SUPER Ух" 


持 金 の 表示 
"15 (К) 3 "円 に ナリ マシ クリ 


メッ ギー ジジ 出 訪 


ァ ソ ヒマ スカ クー (Ү/М) "; 


THEN RUN 
THEN CLSiEND 


| 再 ゲ ー ム か ? 


77-6 МЕК 1.0 жжж"; 


LOCATE 9,24:PRINT" жж COPYRIGHT 1983% る 月 BY HEART 5 
COLOR é 

LOCATE 0,1 

Ul っ 
PRINT"E IE ,_NE デ и m"; 
РКІМТ"Ш ooo Ш m OO m; 
РКІМТ"Шо 1 о BE; 
PRINT" 較 о Ш mo com"; 
РРДЫТ"Е 050 1Í$p=———— ise na sss ЕС ош"; 
РКІМТ"Е eee Ш m ос m; 
РКІМТЕ ө 2 2 өө H"; 
РЕ1МТ"Ш еш Ше 8"; 
PRINTS ә Ш--------<------------------ Ше ош; 
PRINT" 較 о E Ше sm; 
РКІМТ "Ш о o 3 з ee Ш"; 
РКІМТ "Ш ooo Ш m OO ш"; 
РКІМТ"' В о g: Ш---------сәс-<-----е-тотеты шо ош"; 
РКІМТ"Ш өөө Ш moocoocm"; 
PRINT" 画 e ө 4 40 om"; 
РКІМТ "Ш @@ Ш Шо ош; 
РКІКТ"ШЕ в ө Ш----------------------тә--ы ш и"; 
РКІМТ"Ш ooo В пе ш"; 
РВ1ЇМТ'"Ш о 5 5е ш"; 
РЕ1їМТ'"Ш о Ш Шеееенш"; 
РКІМТ"Ш о Ш--------------------------- ы ш"; 
7 ПО OO ニニ ニー ご マー ニテ ニニ ニニ ニニ ニニ ニニ ここ 


COLOR 4:RETURN 


TEMPO 599:PLAY "915" 
PLAY "04FA05C?04A7F7A7F7C?R4 
PLAY "F7A705C?04A7F7C7F8R? 以下 音 の サブ ル 
SOUND 1,3 ‘SOUND 0,250 

SOUND 3,3 : SOUND 2,256 

SOUND 5,30 :SOUND 4,250 

SOUND 4,10 

SOUND 7, &НЕВ 

SOUND 8,16 :500М№0 9,16 

SOUND 10,16 

SOUND 12, 18:500№0 11,20 

SOUND 13,0 :ҒОК 1-08 TO 900:МЕХТ 
RETURN 

SOUND 1,30 :SOUND 0,250 

SOUND 3,30 :SOUND 2,250 

SOUND 5,30 :SOUND 4,250 

SOUND 6,20 

SOUND 7, &HF8 

SOUND 8,16 :SOUND 9,16 

SOUND 10,16 

SOUND 12,2 :SOUND 11,268 

SOUND 13,0 :FOR 1-0 TO 90:МЕХТ 
SOUND 13,8 :FOR I=0 TO 90:МЕХТ 
RETURN 


破産 し た と き の ル ー チ ン 


ОЕТ жж"; 


画面 表示 


- チ ン 


ШЕННЕН SHARP-Xi 127772 7° -< VER 1-6 ШШШ 


Ө: 
1: 
2: 
3: 
4: 
5: 
6: 
(4: 
8: 
! 


CONGRRTURRT I ON 
ャ イイ n HIPPOPOTAMUS 3° 239, 
モ そり 1 ト ~ FU22D? (V /N)B 
GUESS2 HIPPOPOT RMUS 
ШЕ [C]COPYR1IGHT 1983.7 BY HEART SOFT ШЕ 


あな た の 友達 が 無実 の 罪 で 絞首刑 に な ろう と し て いま す 。 友達 を 助け 
る た め に は , あな た が , X 1 の 出し た 単語 を 当て な く て は いけ ませ ん 。 
さあ , あな た は 友達 を 助け る こと が , で きる で し ょ うか 2? (何故 , 単語 
を 当て る だ け て で 友人 が 絞首刑 を 免 が だ れる か は , あま り 深 く 考 えな いで 下 
きい 。 ) 

Ва С 30 個 用 意 し まし た が , いく ら で も 増やす こと が で きま 
す 。 その 方 法 は 以下 の 通り です 。 

50 行 DIM W$(30) っ DIM W$ (増やし た 単語 数 ) 

50 行 W=31 っ W 三 増やし た 単語 数 +1 

10050 行か ら DATA 文 で 単語 を 入れ る 


18. ハン グマ ン 


ゲー ム の 遊び 方 


X 1 の 出し た 単語 を 当て る の で す が , チャ ンス は 10 回 で す 。 答え は , 
アル ファ ベッ ト 1 文字 ずつ 入力 し て 行き 、 あな た が 間違う た びに 絞首刑 
が 進ん で いき ます 。 答え が 分 っ た と き は , フル スペ ル で 入力 し て も か ま 
いま せん 。 


と の ダー ム の コロ ツ 人 です 汰 ЕТ, 7; 4, М, ж; Я (А, 1, U, 


ま 
+, イカ サマ と し て は , リス ト を プリ ンタ ー で 出し て お く と いう 手 も あ 


, ま С カト ドド ツー 
変数 表 
W 単語 の 数 F(n ) っ 当っ な た 部 分 
P っ ラン ダム に 選ん だ 単語 の 番号 G $… 入 力 し た 文字 列 
L 単語 の 文字 数 L 0 一 入力 し た 文字 数 
M つ 当っ た アル ファ ベッ ト I $ つ ネー 入力 ( 再 ゲ アーム ? ) 
Yー ヒ ント を 出す Y 座 標 G, 1 エー ループ 用 


WEN СНАРР-ХІ 1277727 "”-< VER 1.6 НВ 


CONGRRTURRTION !! 
イイ n BEAR # す “リタ ョ 


"そり 1 ト ^ PU92p? (у/м) 
GUESS? BERR 


ШЕ [C]COPYR1GHT 1983.7 BY HEART SOFT ШЕ 


` 
2 
x 


90-шы. 


グマ ン 


НКЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
КЕМж ж 
КЕМж ШШШ (22-77 7-2 VER 1.0 ШШШ x 
БЕМж 

КЕМж [CJ]Copyright 1983ж 7Я 
ВЕМж 

КЕМж FOR SHARP-X1 Ву Heart Soft 
КЕМж 
КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 


ххх 


18 CONSOLE 9,25iMIDTH 40 

20 CLS:CLICK OFF:COLOR 7,6 

38 RANDOMIZE:TIME=0 初期 設定 
48 CLSILOCATE 10,15 

58 ОІМ W$(30),F (14):W=31 

98 CLS:COLOR 7:LOCATE 80,8 


100 


PR INT "EER SHARP-X1 ハック “マッ 77-4 VER 1.0 ШЫҒЫ; 
LOCATE 0,24 画面 作成 
РКІМТ"ШШ ССЈСОРҮКІбНТ 1983.7 BY HEART SOFT ШШ"; 

FOR 1=9 ТО ЗӨ:БЕАО Ы%‹1›:МЕХТ I 

P = INT (RND (1) жн» — Y デー タ の 読み 込み 

L =LEN (多く P) ) -1 

FOR 1=@ TO L:F (I)=0:NEXT І 

FOR G=0 TO 9 

GOSUB 1000 —ə,— — ヒン ト を 表示 
LOCATE 0, 22: ІМРЦТ"ОӨ0Е55")09%- キー 入力 

80608 2606 ーーーーーー 当っ た か どう か の 判定 
IF M=L+1 THEN 500 

GOSUB 3000 — T? 名 処理 ルー チン へ 
NEXT G 

G=19:GOSUB 1800 

LINE (0, 15) - (99,21), " ", BF 

LOCATE 60,16 

PRINT" GAME OUER !! 

PR INT 

PR INT* セイ カイ "ИФ СРУ" 5" 52, 失敗 し た と き 
PR INT 

PR INT" モウ 1 ト * ヤリ マス カ ? CY/N) "j 

I$=INPUT$(1)> 

IF 1%="Ү" OR 1%-"у" THEN RUN 

IF I$="N" OR I$="n" THEN С_5:ЕМО 

бото 449 

REN 


LINE (0, 15)- (39,21), " ",BF 


LOCATE 80; 16 

РКІМТ" CONGRATURATION !! 

PR INT 

PRINT" セイ カイ ND "ҘЫФҰР) " 572. 
РЕЛІ 成功 し た と き 
PR INT" モウ 1 ト ~ ヤリ マス カ ? (Ү/М) "; 
1 も = ІМРОТФ (1) 

IF 1%="Ү" OR I$="y" THEN RUN 

IF I$="N" OR I$="n" THEN CLS:END 

GOTO 570 

КЕМ 


1805 Y=G+6ILOCATE 24,Ү 


IF G=19 THEN LOCATE 23,Ү 


1929 PRINT G 


LOCATE 2é,Y:PRINT": "j 


1050 FOR I=0 TO L 


IF F(I)=0 THEN PRINT"-"5 
IF Е‹1›=1 THEN PRINT МІОФ ИФ (Р), I+1, 1); 
NEXT I 


1100 RETURN 


REM 


2005 L0=LEN(G$):IF L0=0 THEN M=@:RETURN 


IF L+1<L9 ТНЕМ RETURN 


2020 FOR I=0 TO L+1-L0 


IF G$=MID$% ($ (P), 1%1,10) THEN FOR J=0 TO L0-1:F (I+J)=1:NEXT J 


NEXT I 

М=@ 

FOR I=0 TO L 

IF F(I)=1 THEN M=M+1 
NEXT I 

RETURN 


当っ た と ころ の 単語 を 表示 する 


正解 し た か 
どう か の 判定 


9801 TEMPO 599:PLAY"03Ci03E" 

る 919 ON G+1 GOSUB "1", "2", "3" "4", "5", "é" "7", 
30820 RETURN 

3030 LABEL "1" 

3040 LINE (3, 3) - (20, 35, "Ш" 

3050 RETURN 

39 る 9 LABEL "2" 

3070 LINE (3, 3) -〈3,29)。" 義 " 

3989 RETURN 

3090 LABEL "3" 

3100 LOCATE 8, 4:PRINT" | 
3110 LOCATE 8, 5iPRINT" | 
3129 RETURN 

3130 LABEL "4" 

3140 LOCATE 8, é:PRINT" ーー 
3150 LOCATE 8, 7:PRINT" |001 
31 る 9 RETURN 

3170 LABEL "5" 

3180 LOCATE 8, 8:PRINT" Г _ 1 
3190 LOCATE 8, 9:РКІМТ" Ө 7. 
3200 RETURN 

3210 LABEL "6" 

3220 LOCATE 8, 19:PRINT" | | | 
3230 LOCATE 8,11:PRINT" | ШЕШІ 
3240 LOCATE 8, 12:PRINT" —ШШ 
3250 RETURN 

3260 LABEL "7" 

3270 LOCATE 8, 13:PRINT" ges, 
3280 LOCATE 8, 14:PRINT" ж. 
3290 RETURN 

3300 LABEL "8" 

3310 LOCATE 8, 15:PRINT" д 
3320 LOCATE 8, 16:РКІМТ" ЄХ 
3339 RETURN 

3340 1 АВЕ "9" 

3350 LOCATE 8, 17:РВІМТ" / % 
3360 LOCATE 8,18:PRINT" / ` 
3370 LOCATE 8, 1?:PRINT" 

3375 RETURN 

3380 LABEL "10" 

3398 PLAY"05C04BAGFEDC" 

3400 RETURN 

10000 КЕМ 


КЕМ 


“----у-” — — —— ーーーーー ツ ーー ーー ヘーー プ —— — Y . の 


を 


= 
° 
№ 


№. 6 


Мо. 7 


№. 8 


No.10 


ыы Ы | 各 表 示 ル ー チ ン へ 行 〈 


10010 DATA _ HORSE, PIG, САМЕ, BUFFALO, DONKEY, RE INDEER, DOG, САТ, MOUSE 
10020 DATA SQUIRREL, RABBIT, FOX, ВАТ, HHALE, DOLPH TIN, ANTELOPE, КАМбАКОО 


10030 DATA BEAR, SEAL, НОГЕ, MONKEY, ВАВООМ, GOR ILLA, GTRAFFE, LION, LEOPARD ( #807 – 7 


19949 DATA TIGER, НІРРОРОТАМЦЧ5, ELEPHANT, ZEBRA, RHINOCER0S 


19 | 
バイ オリ スズ ム (c-RAM 使 用 ) 


人 間 の 体調 と いう も の は ある リズ ム を 持っ て 変化 する と いい ます 。 Z 
の 変化 を 前 も っ て 知っ て お け ば 体調 の 悪い と き に 無理 を し な く て も 良く 
な り ま す 。 その 体調 を コン ピュ ー タ ー で 調べ よう と いう の が , この バイ 
オリ ズム で す 。 体 調 は 23 Н, 知性 は 33 H, 感情 は 28 日 の 周期 で 変 
化し ます 。 で すか ら 生 まれ て か ら 経 っ た 日 々 を 割っ た と き の 余り を 調べ 
て その 数 値 に よっ て 判断 を 下 し ます 。 グラ フグ の 見 方 で す が , 中 心 線 を 0 
と し て 上 方 を 高 周 期 . 下方 を 低調 期 と いい , 両極 端 は いい の で す が , 中 
心 線 が 重なっ た と き は 最悪 で す の で , その 日 は 外出 な ど は さけ て , 早く 
жов 31,29. 


プロ グラ ム の 走ら せ 方 


まず , 生ま れ た 年 。 Н, 日 を 入力 し , 次 に 調べ る 年 。 月 を 入力 し て 下 
きい 。 年 は 西暦 で の 入力 で す 。 5 日 お き に 目盛 が 打っ て あり ます の で , 
調べ る 日 が 大 体 分 る と 思い ます 。 1 分 位 で 表示 が 終り ます の で , 次 の 日 
に 移る と き は , 好き な キー を 押し て 下さ い 。 


— 100.= 


19. バイ オリ ズム 


19. バイ オリ ズム 


БКЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
РВЕМж 
КЕМж ШШШ БІСОРНҮТНМ VER 1.0 ШШШ 


(СІСоругіӨҺ% 1983Ж 月 


КЕМж FOR SHARP-X1 Ву Heart Soft 
КЕМж 
БЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 

10 CONSOLE 9,25:MIDTH 89:CLICK ОРЕ 

28 RANDOMIZE:COLOR 7:ОРТІОМ SCREEN 1:ІМІТ "CRT:":PALET 

39 CLS 4:PR1INT "TI SHARP-X1 BIORHYTHM VER 1.0 ІСІСОРҮКІОНТ 1?83# 7 月 МАРЕ BY HE 

ART SOFT ПШ; 

48 DIM HN(12, 1) 


ә0-о лыш 
ж 
i 
Ххх 


50 ОЕҒЕММ СҮ) =- (Ү MOD 4=0)AND (Y MOD 400>0) — 関数 の 定義 
48 FOR 1=@ TO 1:FOR Ј=1 TO 12 デー タ の 読み 込み 
78 READ MN(J, IDD :NEXT JiNEXT I 


89 LOCATE 0,2 
960 PRINT" 1 s 10 15 28 25 зё 
PRE rr ss 


119 LOCATE 0,12 
МЕЧ, PR ол Ва 


130 LOCATE 0,21 
140 РКІМТ" 


150 CONSOLE 22,3 

1 る 9 LOCATE 5,22: INPUT" ウ マレ タ жу івҮ 

178 IF ВҮ<1908 THEN BY=BY+1 ヶ 9@ 

188 LOCATE 25,22: INPUT" ウ マレ クタ Bñ";BM 

198 IF ВМ<1 OR BNM>12 THEN 1880 А 
288 LOCATE 45, 22: ІМРОТ "27,5 ВА" ;ВО 生年 月 日 の 入力 , 調査 日 の 指定 
210 IF BD<1 OR BD>MN (BM, FNM (BY〉 ) THEN 200 
228 LOCATE 5,23: INPUT" シ ラル №"; МҮ 

230 IF BY<1299 THEN Y=Y+1 ヶ 99 

248 LOCATE 25, 23: INPUT" シ ラベ で ル Ям" ; ММ 
250 IF BM<1 OR ВМ›12 THEN 188 

268 М2=ҒММ (BY) : AL =-BD 

278 FOR H=BM ТО 12:64 «уы +MN (M, М2) : NEXT 
289 IF BY=NY THEN 330 

298 FOR Y=BY+1 ТО NY 

300 HM2=FNM (Y) 

310 AL=AL+345+M2 

320 МЕХТ 

330 M2=FNM(NY) 

349 FOR M=NM ТО 12:61 = -ММ‹М, М2) : NEXT 
350 РКІМТ:ІРБІМТ: ОСАТЕ 0,22 

зев COLOR é 

370 LOCATE 5,22:PRINT" キ イロ ノ セン = タイ チョ ウリ 
зве COLOR 2 画面 表示 

390 LOCATE 25,22:PRINT" ア カノ セン = カン シド а?" 

400 COLOR 4 

418 LOCATE 45,22!PRINT "ミト "リノ セン = テ セ イリ " 

420 IF AL ›23ж28ж33 THEN А =AL -23ж28ж33:00Т0 420 

430 Р= MOD 23:E=AL MOD 28:M=AL MOD 33 

440 FOR X=-3 TO 33 STEP .1 

450 5=Хж14+56:1 = (100-28ж51М‹ (Х+Р) /23ж6. 28) ж2) ; 4 м 
4608 РЅЕТ (5,1,6) :ІҒ ІМТ) =98 THEN POLY(S, し ) 6, 6, 144, 90,810 фа жм 知性 線 
478 $=Хж14&+54:1-=(10@-28ж51М((Х+Е› /28жб. 28) ж2) 

480 PSET (S,L,2):IF INT(L)=?8 THEN POLY(S,L),4&,2, 144,90,810 

490 5=Хж16+56:1 = (100-28ж51М‹ (Х+М) /31ж6. 28) ж2) 

500 PSET (5,1,4) :ІҒ ІМТ) =98 THEN РОГУ ‹5, 1), 6,4, 144, 90,810 

510 NEXT X 

520 COLOR 7:CFLASH 1 

530 LOCATE 645,22:РБІМТ"НІТ ANY KEY !!" キー 入力 ANY KEY て 再 ス ター ト 

540 I$=INKEY%$:IF 1%-"" THEN 540 

550 RUN 

560 БАТА 231,28,31,30,31,30,31,31,30,31,30,31 кезе тр ТІ 

570 DATA 31,2%,31,30,31,30,31,31,30,31,30,31 үяовв デー БЕРЕ, ТӨМ 


日 数 の 計算 


-“102-- 


еттей 


ШЕШЕН СНАРР- М1 で ロ ェ ュー 


F1 = オ 99- コ "3 ҒЕ2-479-2%4 ЕЗ-А29-2%5 
(HK) CHU) сво) (HU) (857 


E R U I 
i Ё й 1 É x 


ИР ЧЙ F G H J K L 
с=з СӨК» Ұр» CI (99 で う みう 。 て サ ) СЕЮ 
ШШ COPYRIGHT 1983.7. BY HERRT SOFT ШЕШ 


X 1 に は PLAY 文 な どの 音楽 機能 が あり, ゲー ム な どの 効果 を 出す 
の に 威力 を 発揮 する の で す が , デー タ を 作る の が 大 変 で す 。 私 は 音楽 の 
オ 能 が 無い た め , いつ も デー タ を 作る の に 四苦八苦 し て いま す が , いっ 
その こと ピア ノ や オル ガン の よう に 直接 演奏 し て , それ が その まま デー 
タ に な れ ば 良い の に ………… 。 と いう こと で 作っ た の が , この メロ ディ 
ー メ ー カ ー で す 。 これ も “AUTO DATA MAKER” と 同じ よう に, 
自己 増殖 型 の プア ログ ラム で , デー タ は 60000 行か ら 直 接 , PLAY ЖС 
保存 きれ ます 。 

この メロ ディ ー メ ー カ ー で は , テン ポ 文 な を どい くつ か の 機能 が あり ま 
せん 。 みな さん で 色々 と 使い や すく し て みて 下さ い 。 
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20. メロ ディ ー メ ー カ ー 


プロ グラ ム の 使用 法 


まず , プロ グラ ム を RUN し ます と , 画面 いっ ぱい に 鍵盤 が 表示 され 
ます 。 その 下 に 表示 され て いる 英字 A 一 葉 まで が , ドレ ミ に 対応 する キ 
ー で す 。 Жап, その 斜 上 と いう よう に , ピア ノ な ど と 同じ ょ うな 形 に 
し て あり ます 。 ファ シ ク ショ レン ギー の 1 一 3 まで ほ 。 オ タタ ー プ 指定 に 
な っ て いま す が , ここ に は 1 一 3 まで の 数 字 が 入っ て いる だ け で す の で , 
テン キー の 1 一 3 まで も 同じ よう に し て 使用 する こと が で きま す 。 ЖЖ 
は 0 キー で す , 以上 が 演奏 時 に 使用 する キー で す の で , 演奏 し て みて 下 
きい 。 打っ た 音符 が 上 段 に 表示 きれ た は ず で す 。 ここ て 演奏 し そこ な っ 
た 場合 は 、 DEL キー を 押せ ば 修正 が 可能 で す 。 次 に , スペ ー ス キー で 
す が , 今 ま で 演奏 し た デー タ を プロ グラ ム 化 し て 保存 し た いと き に 使用 
し ます 。 最 後に RETURN キー で す が , これ は 今 ま で プロ グラ ム 化 し 
た デー タ を 自動 演奏 する も の で , どの よう に 保存 され た か 確か め る と き 
に 使用 し て 下さ い 。 こ うし て 出来 上 [っ た デー タ は 60000 行か ら 入 っ て 
いま す の て で , 必要 に 応じ て 修正 を 加え て 完成 版 に し て 下さ い 。60000 行 
以前 を デリ ー ト し て , АЅСП SAVE を し て お け ば , 違う プロ グラ ム に 
つけ る と き に 有効 で す 。 


変数 表 


LN デー タ の 保存 きれ る 行 番 号 
I$ つっ キー 入力 用 

MU $ つ 押し た キー に 対す る 音符 デー タ 
P$ つ 今 まで に 演奏 し た デー タ 


Д 


— 104 一 


20. メロ ディ ー メ ー カ ー 


20. メロ ディー メー カー 
КЕМжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
БЕМж 
БЕМЖ ШШШ ;/07-/- メー カー VER 1.0 ШЕШ 
ІСІ COPYRIGHT 1983% ӨЛ 


КЕМж FOR SHARP-X1 BY HEART SOFT 


9094олашы. 
> 
i 
X x X x X x X 


10 KEY1, "1":KEY2, "2":КЕҮЗ, "З" 
20 CONSOLE 8,25:NIDTH 40 

30 COLOR 7!CLS:LN= る 9999! 

48 PLAY"U1004":TEMPO 500 

50 РКІМТ" ШШШ SHARP-X1 メロ テバ ィ ー メー カー VER 1.0 ШШ": 
る 9 LOCATE 0,23 јата 
70 РКІМТ" ШШШ COPYRIGHT 1983.7. BY HEART SOFT ШШШ"; 

88 LOCATE 0,5:GOSUB 438 

90 LINE (0,2) - (39,4), " ",ВЕ 

100 REM 

110 ІФ=ІМКЕҮФ 

120 IF 1%-"А" ТНЕМ MU%="-B" 

138 IF ІФ="5" THEN МуФ= "С" 

140 IF ІФ="0" ТНЕМ MU を $="D" 

150 IF ІФ="Ғ" THEN МОФ= "Е" 

160 IF 1%="б" THEN МОФ= "Е" 

170 IF ІФ="Н" THEN MU$="G" 

180 IF ІФ="Ј" ТНЕМ MU%="A" ¿e 

198 IF 1%="К" THEN MU%="B" | 

200 IF I$="L" THEN MU%="+C" 

210 IF 1%="Е" THEN MU$="#C" 

220 IF I$="R" ТНЕМ MU$%="#D" 

230 IF 1%="Ү" THEN MU$="#F " 

240 IF I$="U" THEN MU%="#G" 

250 IF 1%-"1" THEN MU$="#A" 

24@ IF 1%-"1" THEN MU%="03" А 

270 IF 1%-"2" THEN МиФ= "04" (122 - 7 

280 IF 1*="3" THEN МОФ= "05" 


初期 設定 


290 IF 1%="@" THEN MU$="R" — ЖЗ 

300 IF ІФ=" " THEN LN=LN+10:60T0 350 一 一 自己 増殖 へ А 
305 IF ІФ=СНЕФ (8) THEN MU$=" ":РфФ=" ":1 МЕ (0,2) – (39,4), " ", ВЕ 一 一 消去 
310 IF I を $=CHR を (13) THEN 4800 — 8 šh = 


320 РФ=РФ+МОФ:Р_ АҮ MU$:MU$= " " 
330 LOCATE 12,2:PRINT P$ 

349 GOTO 100 

358 REM 

360 P=" ":МОФ="" 

370 LOCATE 0,2:PRINT LNi "PLAY" ;:СНЕФ (34) 

3808 КЕҮӨ, СНБ% (30, 30, 13) +"6. 98"+CHR$ (13y—— 1 に [人 人 ER] СОТО 90 CRI を や ら せ る 
390 END 

499 REM 

410 P$="":MU$="" 

аге GOSUB ¿&0000:GOTO 199 


430 КЕМ 

440 PRINT"  F 1= オ クタ ー フ "3 Е2-422-2%4 上 F コ = オク ター フ ~5 "4 
450 PRINT" " 
460 PRINT" (WF) (#L) (82) (#7) (#5) 4 
470 РКІМТ" E R Y у І 4 
яғын" ны Y 71 
490 PRINT" ШІ ІШІ Е ІШІ ІШІ шиш; 
508 PRINT" ШІ ІШІ шиш ІШІ ІШІ шшш; 
518 PRINT" ШІ ІШІ шиш ІШІ ІШІ ІШІ” 
520 PRINT" ш ІШІ ІШЕ ІШІ ІШІ ІШІ шиш; 鍵盤 の デー タ 
530 PRINT" “а. ER ol — 8 — иш Ша” 
540 PRINT" ШЕШ БЫШ БЕН БЕН БЕН БЕН ID 


Іш шин 
550 PRINT" ш БЕН БЕН БЕН БЕН БЕН 
560 PRINT" Imam БЕН БЕН БЕН БЕН БЕН БЕН БЕН ШЕШІ”; 
570 PRINT" и БЕН БЕН БЕН БЕН ШЕШ 
580 PRINT" トーーーーーーーーーーーーーーーーーーーーーーーー í 


590 РКІМТ" А s D F с) H J K L ч 
608 РКІМТ" (-5) (К) XL) (82 (7) Су) (9) (5) (+) "j 
る 19 RETURN 
る 9999 КЕМ 


る 5539 RETURN 
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後書き 


一 時 期 , 一 部 の 人 達 の も の で あっ た マイ コン , パソ コン が 最近 で は 広 
い 層 の 多く の 人 達 が 使う よう に な っ た の は , 大 変 喜 ば し いこ と で あり ま 
+, 近頃 は , ゲー ム , シュ ミレ ーション , ビジ ネス 用 な どの 多く の パッ 
ケー ジ ソ フ トウ ェ ア が 出 て , 広範 囲 な 使わ れ 方 が 出来 る よう に な り ま し 
た 。 しかし, 反面 。 市 販 の パッ ケー ジ ソ フ ト は 汎用 性 を 持た せ て いる た 
め に , どう し て も 変更 し た い 箇 所 が 出 て , "BASIC 言語 を 習得 する に は , 
どの よう な 方 法 が 良い か ? ? な どの 声 が 多い の も 事実 で あり ます 。 

BASIC 言語 を 覚え る 一 番 の 近道 は , 前 書き に も 書い た よう に , “習う 
より 慣れ ろ ” С, 本 書 の ゲー ム プ ログ ラム を 入力 , 実行 し アロ グラ ム を 
変更 し て いく こと に より , オリ ジ ナ ル な プロ グラ ム に 作り 変え て 行く の 
が 能率 の 良い , 習得 方 法 に な る と 思い ます 。 ま た , ゲー ム ソ フ ト は 豊富 
に 揃っ て いる も の の 高価 で ある た め に , な か な か 入手 出来 な い の が 現状 
で す 。 本 書 で は , 約 20 の ゲー ム プ ログ ラム を 集録 し て お り , 楽し むこ と 
が 出来 る と 思い ます 。 基 非 , 本 書 に より , ゲー ム を 楽し み , か つま た , 
BASIC 言語 の 参考 書 に し て いた だ き , 本 書 が , あな た の マイ コン ライ 
フ に 少し で も , 役に立て ば 幸い だ と 思い ます 。 

HART SOFT 
Y. TAKASE 


ШІ 案 内 


本 書 に 掲載 し て いる 20 本 の ゲー ム プ ログ ラム を 収録 し た . カセ ッ ト テ ー プ 
を 読者 に 5,000 円 (送料 含む ) で 頒布 いた し ます 。 

御 希望 の 方 は , 下記 申込 書 に 必要 事項 を 御 記 入 の うえ 現金 書留 に て ハー ト 
電子 産業 株 式 会 社 ま で , 御 申込 みく だ さい 。 


〔 対 象 機種 ] シャ ー プ パソ コン テレ ビ X 1 
【 メ ディ ア 〕 標準 カセ ッ ト テ ー プ 
(m 3⁄8) 5,000 円 (送料 含む ) 
(申込 £) 〒221 
神奈 川 県 横浜 市 神奈 川 区 東 神奈 川 2 一 40 9 
クイ ン ビ ル 7F 
ハー ト 電子 産業 株 式 会 社 
TEL.045-441-0190 


プロ グラ ム 申 込 書 
年 月 H 
パソ コン テレ ビ X 1 ゲー ム プ ログ ラム (II)・ カ セッ ト テ ー プ を 申込 み ま す 。 
〔 御 住所 〕 
〔 お 名 前 〕 


〔 お 電話 〕 


BASIC ソー スプ ックス 
パソ コン テレ ビ X 1 ゲー ム プ ログ ラム (II ) 


昭和 59 年 7 月 1 日 初版 
昭和 59 年 8 月 20 日 2 № 


Ж 者 HEART SOFT 


発行 者 等 原 洪 平 


ян 工学 図書 株 式 会 社 


(営業 所 ) 東京 都 千 代田 区 三 番 町 5 
| 電話 03 (262) 3 7 7 2 番 
i 振替 東京 /-13465 番 


印刷 所 正文 社 印 刷 株 式 会 社 


ОНЕАЕТ SOFT 14 ISBN4-7692-0128-1 C3058 


云 定価 は カバ ー に 表示 し て あり ます 。 


ғ -- > 
LOGO 7п2>7>5:>27>7АРЗ 
矢 知 晴一 郎 著 A5・252 頁 定価 2200 円 
LOGO 入 門 プ LOGO の 基本 ハー ドウ ェ ア の 使い 方 プ LOGO の 個別 命令 の 規 能 と 使い 方 プ LOGO プロ 
グラ ミン グ の 基礎 ププ LOGO プ ログ ラミ ング の 応用 


に ғ -- 
PC-6001 ゲー ム プ ログ ラム (1) 
ハー トン フト 編 B5・1I32 頁 定価 !300 円 
z ぶ さ U タ ケー ド ダ ゲー プク ラッ プス ゲーム デス ロッ トマ シシ ゲー ムカ テレ ビオ シェー デー ミー デラ ザラ 
が ゲ が ー ム 〆 ゲ エー ジー ' デ デージー グ 三 区 二 丈 多 ゲオ モロ ゲー ムラ リマ プア フロ タダ デル ー ビタ ト ダ ー 
ム グ 立 体 四 目 並 べ プ 砲撃 ゲー ム プ スキ ー ス ラロ ー ム ググ 万 年 カレ ンダ ー プ マス ター マイ ンド ブロ 
タタ 導 《 ず し デキ ー ボ ー ド ビッ スシ ノン 毛 グラ た た き プ ウタ パテ ズ イ の 堪 グ ププ ラッ クジ ゃ ャ ッ タ クタ 


PC-6001 ゲー ム プ ログ ラム (2) 

ハー トン フト 幼 В5 - 12898 定価 |!300 円 

APPLE & EXT プ 競馬 ゲー ム プ バイ オリ ズム コン テス トロ グ 整 理 プ ログ 整理 プ ハ イレ ゾ で の キキ 
ャ ラウ ター の 作り 考 ア ガ ンマ シブ F1 レ ー ス ネン 戦 還 戦 ゲ スー パー スタ ダ ター トレ ピック ジル ナー レス キュ 
ー グ APPLE キ ャ ッ チ ルナ ー・ ラ ンダ ー プ サフ マリ ン ン 化学 反応 式 、 不 規則 動詞 変化 の お 勉強 
性 格 判定 自動 簡易 翻訳 機 家 計 湯 


> トコ ` 】 

PC-8000 シリ ー ズ ゲー ム プ ログ ラム 
ノー トン フト 幼 В5 - 12898 定価 !500 円 
ノリ ケー ド グ オ セロ ゲー ムカ ラー デモ ンス トレ ーション ・ プ ログ ラム エー シー・ デ ー シ ジーグ 
スキ テース ラロ ー ム ググ ヘ ペ ヘッド ・ オ ング キー ボー ドレ ン ッ スン グ 立 体 四 目 並 ベ グ 三次 元 迷 絡 有 万 年 カレ 
ンダ ー グ マス ター マイ ンド 平安 京 エ イリ アン ププ ハノイ の 載 プ クラ ッ プ スグ ライ フク ゲー ム グ プ グロ ー 
リン グ ク ラッ シュ カメ レオ ン ア ー ミ ー ン ジグ 不 規 則 動 詞 ・ 化 学 反応 式 の お 勉強 ブル ナー ラン ダー ング 
海底 宝 さ が し 

Ф 7“ 】 
м2-700 ゲー ム プ ログ ラム 
ハー ト ソ フト 編 B5・II6 頁 定価 |300 円 


デ ャ ラク ジー ウ ォ ー ズ グ オ セロ ダーム エー シー デー ジー グイ V テ ニス ググ ハン フイ の 塔 プ パリ ケー 
ド ゲ ー ム プス キー スラ ロー ムラ イフ ゲー ムキ ー ポ ボード レッ スシ グ カ メレ オン アー ミー クラ 


ッ プ スグ 3-D プ ロッ ト グ プ ロッ ク く ず し デジ タル クロ ッ ク グ 立体 四 目 並べ ベ グ 万 年 カレ ンダ ー グ 
マネ スー マイ ジ ド ング パイ ギリ ズム ング 平 安 京 エイ リア ジグ ヘッ ド オ ジ 


FM-7/8 ゲー ム プ ログ ラム 

ハー トン ソフ ト 編 B5:1408 定価 |500 円 

バリ ケー ド プ オセ ロ ゲ ー ム カラ ー デ モ プ エー シー テー シー ググ スキー スラ ロー ム グ ヘ ッ ド ・ オ ン 
"キー ボー ドレ ッ ス ング 立体 四 目 並べ ぶ プ カメ レオ ン ・ ア ー ミ ー グ 万 年 カレ ンダ ー プ マス ター マイ 
ンド ン 平 安 京 エ イリ アン ハン イ の 塔 プ ビク ラップ スプ ライ フ ゲ ー ム プロ ー リ ング ・ ク ラッ シュ ング 
不 規則 動詞 ・ 化 学 反応 式 の お 勉強 プル ナー・ ラ ンダ ー ン グ 海 底 宝 さがし 三次 元 迷 路 

パン コン テレ ビ X1 ゲー ム プ ログ ラム 

クハ ハー トン ソフト 編 B5・136 頁 定価 1500 円 

аер КИГАШ w ЯЖ-а2ы” етеу Ë + РИИ бое = スキ ー ス ラロ ー ム キー ボ 
ー ド レッ スズ ング 立体 四 目 並べ カメ レオ ンジ ・ ア ー ミ ー ジ カ年 カレ シダ ー プ マス ター マイ ジ ド ン 〆 平 
安 京 エイ リア ング バハ ノイ の 塔 プ ビク ラッ プス プラ イラ ゲ ダーム グ プス ー パ ペパー ロー リ ジ グ ・ ク ラッ シュ ング 
化学 反応 式 ・ 不 規則 動詞 の お 勉強 ブル ナー ラン ダー ング 海 底 宝 さがし 三次 元 迷 路 


と び 出 せ MSX 


望月 た か し 著 A5・200 頁 定価 !300 円 
MSX の 夜明け プ MSX っ て どん な 顔 プ BASIC の は な し プス ター ト 前 の チェ ッ ク ポ イン ト ジ MSX 
に 指令 せよ わずか 10 種 の 命令 て プロ グラ ム は 書け る プ 入 出力 プ ログ ラム の 書き 方 グラ フィ ン ッ 
ク テ ク ニッ クン 便利 な 関数 ご サウ ンド オブ MSX プ チョ ント ま て ノ の テク ニッ クン プロ グラ ム 作 
り の コツ デカ モッ ド デ ー タ ペー スズ 

` 4 > -- 
MSX ゲー ム プ ログ ラム 
ハー トン フト 編 АБ - 13698 定価 !200 円 
オ 名 < が ー ム の 撃 ゲー ム デ デー ジー デー ジー の スズ スキー スラ ロー TV テー スネ メス バリ 人 委 一 
ドン ププ ラッ クジ ャ ッ ク プ ヘッ ド オ ンプ ライ ラフ ゲ ダー ムン 三次 元 迷 路 プ キー ボー ドレ ッ ス ンプ スプ ラ 
イド メー カー グ バ ン イ の 培 グ 万 年 カ レン ダー ゲル ナー ラシン シダ ー プ カラ ラー デモ 


東京 都 千 代田 区 252 ГУЛ ше 電話 (08)262-3772 
T102 三 番 町 5 番地 = >Z 書 株 式 会 hš ËR 東京 7-13465 


